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Detailed  instructions  are  presented  for  using  a  computer  program  which 
calculates  the  six-degree-of-freedom  trajectories  of  external  stores  which  are 
separated  from  fighter-bomber  type  aircraft  flying  at  supersonic  speeds. 
Multiple  circular  or  elliptical  store  configurations  may  be  handled.  Parent 
aircraft  configurations  may  consist  of  a  circular  or  arbitrary  cross  section 
fuselage  with  ramp  external  compression  inlets,  and  a  wing,  pylon,  and  rack. 
The  program  useB  linear  potential- flow  theory  to  modal  the  wing  and  pylon 
loading  and  thickness.  Three-dimensional  line  sources  and  doublets  are  used 
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20.  (Continued) 


to  model  circular  fuselages  and  stores.  The  noncircular  fuselage  and  elliptic 
store  surfaces  are  modeled  with  constant  source  panels.  Nonlinear  corrections 
are  made  to  the  wing,  fuselage,  rack,  store  and  fuselage  inlet  models  to 
simulate  shocks.  The  program  also  calculates  the  trajectory  of  the  store  as 
it  separates  from  the  aircraft.  This  report  describes  the  program,  presents 
instructions  for  preparing  input  for  the  program,  describes  the  output  from 
the  program,  and  presents  a  sample  case.  The  program  represents  an  extension 
of  an  earlier  program  restricted  to  circular  bodies  at  supersonic  speeds,  N 
written  by  the  present  authors  and  described  in  AFFDL-TR- 76-41. 


5*  This  volume  presents  the  detailed  descriptions  of  the  calculations 
performed  in  each  of  the  subroutines  in  Program  II.  Also  included  are  the 
descriptions  of  each  of  the  variables  passed  between  routines. 


FOREWORD 


This  report,  "Prediction  of  Supersonic  Store  Separation  Char¬ 
acteristics  Including  Fuselage  and  Stores  of  Noncircular  Cross 
Section,"  describes  a  combined  theoretical-experimental  program 
directed  toward  developing  a  computer  program  for  predicting  the 
trajectory  of  an  external  store  separated  from  an  aircraft  flying 
at  supersonic  speed.  It  represents  an  extension  of  previous  work 
covered  in  AFFDL-TR-76-41  to  include  more  realistic  modeling  of 
fuselage  shapes  including  noncircular  cross  sections  and  ramp  type 
engine  air  inlets,  and  to  include  modeling  store  shapes  with 
elliptic  cross  section  with  multiple  sets  of  arbitrary  oriented 
fins.  Volume  I,  "Theoretical  Methods  and  Comparisons  with  Experi¬ 
ment,"  describes  the  theoretical  approach  and  presents  extensive 
comparisons  with  experimental  data.  Volume  II,  "Users  Manual  for 
the  Computer  Program,"  presents  detailed  instructions  on  the  use 
of  the  computer  program  with  emphasis  on  preparation  of  input  data 
and  interpretation  of  output.  Volume  III,  "Appendices  A  and  B, 
Details  of  Program  I,"  provides  additional  descriptions  of  the 
individual  subroutines  and  program  variables  passed  between 
modules  in  the  first  of  two  programs.  This  volume,  Volume  IV, 
"Appendices  C  and  D,  Details  of  Program  II,"  provides  additional 
descriptions  of  the  individual  subroutines  and  program  variables 
passed  between  modules  in  the  second  program. 

This  work  was  carried  out  by  Nielsen  Engineering  &  Research, 
Inc.,  510  Clyde  Avenue,  Mountain  View,  California  94043,  under 
Contract  No.  F33615-76-C-3077 .  The  contract  was  initiated  under 
Project  2403,  Task  240305,  of  the  Air  Force  Flight  Dynamics 
Laboratory.  The  Air  Force  Project  Engineer  on  the  contract  was 
Calvin  L.  Dyer,  AFWAL/FIGC.  The  report  number  assigned  by  Nielsen 
Engineering  &  Research,  Inc.  is  NEAR  TR  210. 
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PREDICTION  OF  SUPERSONIC  STORE  SEPARATION 
CHARACTERISTICS  INCLUDING  FUSELAGE  ANH 
STORES  OF  NONCIRCULAR  CROSS  SECTION 

Volume  IV  -  Appendices  C  and  D,  Details  of  Program  II 

SUMMARY 

The  purpose  of  this  volume  is  to  provide  the  additionax  details 
of  the  parts  of  the  second  program  that  would  be  useful  to  the 
programmer  or  engineer  interested  in  understanding  the  calculations 
and  computer  code  herein.  The  information  included  here  as 
Appendices  C  and  D  describes  the  function  and  operations  performed 
by  each  routine,  a  description  of  data  transferred  between  sub¬ 
routines  and  a  listing  of  Program  II  itself. 

Appendix  C  provides  a  detailed  description  of  the  operations 
and  flow  of  calculations  of  each  of  the  individual  routines  in 
the  second  program.  Included  are  a  description  of  the  flow  of 
the  calculations,  including  flow  charts  of  some  routines,  a 
description  of  any  program  arguments,  and  a  program  listing. 

Appendix  D  provides  a  description  of  all  variables  passed 
between  routines  in  common  blocks.  A  listing  of  each  common  block 
with  a  description  of  each  variable,  array  or  index  in  the  common 
are  provided.  A  special  section  is  provided  for  the  multiple  uses 
of  blank  common  as  well  as  a  cross  reference  chart  of  routine 
versus  common  block  usage. 


APPENDIX  C 


DETAILS  OF  PROGRAM  II  SUBROUTINES 

C-l  Introduction 

The  purpose  of  this  Appendix  is  to  provide  more  detailed 
information  on  the  calculations  performed  in  the  second  program 
whose  use  was  described  in  Section  4  of  Reference  1,  and  whose 
methods  are  described  in  Reference  2.  A  listing  of  Program  II  is 
presented  in  Figure  C-l  and  a  schematic  showing  the  subroutine 
calling  sequence  is  presented  in  Figure  C-2.  This  appendix  will 
present  the  details  of  the  flow  calculations  of  each  of  the 
routines,  a  description  of  the  variables  in  the  argument  list, 
individual  detailed  flow  charts,  and  a  summary  of  the  functions  of 
each  routine.  The  program  consists  of  a  main  program  and  106 
subroutines.  The  main  program  will  be  described  and  then  the 
subroutines  will  be  described  in  alphabetical  order.  The 
subroutines  and  their  functions  are  listed  in  Table  C-l.  Flow 
charts  of  some  of  the  individual  routines  are  shown  in  Figures 
C-3  through  C-15.  Refer  to  Volume  II  of  this  report  for  the  list 
of  symbols  used. 

TABLE  C-l 

SUBROUTINES  USED  IN  PROGRAM  II 

Subroutine 

Name  Function 


TRJTRY  main  program  to  read  in  data  describing  separating 

store,  set  up  store  and  empennage  models,  organize 
calculation  of  store  forces  and  moments,  and  set 
up  and  solve  equations  of  motion  for  store 
trajectory 


A 


ADAMS 


BDCOEF 


BDUVW 


B  VAR  I A 


C  ELI 


CEL2 


CRFWBD 


DASCRU 


DBLU 


numerical  integration  routine  to  integrate 
differential  equations 

routine  to  organize  generation  of  influence  coef¬ 
ficient  matrices  for  elliptic  store  body  at  empennage 
control  points 

routine  to  organize  calculation  of  U,V,W 
velocities  from  coefficient  matrices  computed 
at  empennage  control  points 

calculates  betas  to  be  used  for  axisymmetric 
or  noncircular  fuselage,  rack,  and  all  circular 
and  elliptic  store  bodies  except  the  separated 
store 

calculates  complete  elliptic  integral  of  the  first 
kind 

calculates  complete  elliptic  integral  of  the 
second  kind 

organizes  the  reading  and  printing  of  the  input, 
setting  up  of  the  geometry  and  calculation  of  the 
influence  coefficient  matrix  for  multi-fin  elliptic- 
store  empennages 

adjustable  interval  integration  routine  for 
ordinary  linear  differential  equations 

calculates  the  intermediate  transform  variable  w 
for  the  conformal  transformation  of  an  elliptical 
body  with  wings. 


3 


DEM0N2 


D IRC  OS 


DSDZ 


DZDS 


D2SDZ2 


EGMSAV 


EGMRST 


EJECTR 


ELI  1 


ELI  2 


forms  the  right  hand  side  of  a  multiple  fin/inter¬ 
ference  shell  velocity  equations  in  the  presence 
of  a  nonuniform  flow  field  and  calls  for  the  solution 
for  the  u-velocity  panel  strengths,  pressures  and 
loads 

calculates  direction  cosines  between  inertial 
and  store  body  coordinate  systems 

complex  transformation  used  by  VVELS  in 
vortex  tracking 

complex  transformation  used  by  VOTEX  in 
vortex  tracking 

complex  transformation  used  by  VOTEX  in 
vortex  tracking 

routine  to  save  elliptic  store  empennage  geometry 
on  TAPE 3 

routine  to  restore  elliptic  store  empennage  geometry 
from  TAPE 3 

calculates  ejector-forces  and  moments  from  input 
polynomials 

calculates  generalized  elliptic  integral  of  the 
first  kind 

calculates  generalized  elliptic  integral  of  the 
second  kind 
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i 


ELLCPT 


ELLSHP 


ELRFLB 


ELRFLW 


EXPAND 


FLDAC2 


FLDA IC 


FLDUVW 


FLDVEL 


performs  extrapolation  of  panel  control  points 
on  ellipse  to  exact  surface  along  radial  line  from 


computes  the  horizontal  and  vertical  semi-axes 
and  their  axial  derivatives  for  an  ellipse 

computes  the  image  elliptic  store  location 
relative  to  the  fuselage 

computes  the  shock  shape  between  the  store  and 
wing  surface  for  elliptic  stores  and  calls  REFSHK 
to  calculate  the  image  store  location 

calculates  velocities  in  the  cross  flow  plane  of  an 
expanding  or  contracting  elliptical  section 

called  by  DASCRU  to  organize  calculation  of 
cross  flow  plane  velocities  for  vortex  tracking 

computes  influence  coefficients  for  u,v,w 
velocity  components  induced  by  body  source  panels  of 
a  single  segment  at  field  points 

organizes  calculation  of  influence  coefficients 
due  to  body  source  panels  at  empennage  control 
points 

computes  u,v,w  velocities  at  field  points  from 
coefficient  matrix  generated  by  FLDAC2  and  panel 
str eng  ths 

organizes  computation  of  u,v,w  velocity  components 
at  field  points 
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FLDVL2 


FORMOM 


FREFSH 


FRSTRT 


FXBOD 


IMAGEV 


IMAGFN 


IMAGYZ 


IMSVEL 


INLBET 


computes  u,v,w  velocities  at  field  points  due  to 
a  single  ring  of  panels 

calculates  force  and  moment  coefficients  on  a 
noncircular  body 

calculates  the  location  at  which  the  circular 
store  nose  shock  which  is  reflected  by  the  fuselage 
strikes  the  store  and  its  associated  8 

saves  or  restores  required  program  information 

for  source  paneling  method  to  restart  conf iguration 

analysis 

sums  the  axial  distributions  of  forces  and 
moments  for  various  store-body  source  panel 
sections 

computes  the  influence  of  a  ring  of  panels  on 
the  image  elliptic  store  on  the  real  store 

computes  the  influence  of  the  image  elliptic  store 
body  on  the  real  store  fins. 

computes  the  control  point  locations  of  the  image 
store  as  seen  from  the  body  fixed  coordinate  system 
of  the  real  elliptic  store 

calculates  the  velocities  due  to  the  image  circular- 
body  store 

interpolates  in  the  wedge  shaped  inlet  shock  for  6 
of  inlet  panels  used  in  flow  field  calculations 
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INLTST  determines  whether  a  source  panel  is  an  inlet  panel 

INTOST  transforms  a  vector  with  components  in  the  inertial 

coordinate  system  to  one  with  components  in  the 
store  body  coordinate  system 

INVER2  solves  a  system  of  simultaneous  algebraic 

equations 

I OREAD  performs  an  unformatted  read  from  external  file, 

10 

IOWRIT  performs  an  unformatted  write  onto  the  external 

file,  10 

IXBOD  scans  elliptic  store  geometry  to  define  leading 

and  trailing  edges  of  body-fin  sections  and  elliptic 
body  axes 

LAYBIP  lays  out  and  determines  geometrical  properties  of 

the  constant  u-velocity  panels  on  the  interference 
shell  of  the  elliptic  store  body 

LAYOUT  lays  out  and  determines  geometrical  properties  of 

the  constant  u-velocity  panels  on  the  fin  surfaces 

LOADS  calculates  the  forces  and  moments  acting  on  the 

elliptic  store  fins  and  the  interference  shell 

NUMACH  determines  the  leading  edge  and  trailing  edge 

locations  and  Mach  numbers  associated  with  wing 
thickness 
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PANVEL 


PAS001 

PAS002 

PITROL 

PRESS 

RDFILE 

REFSHK 

RESVEL 

ROTBW 


organizes  the  calculation  of  the  influence  of  a 
single  source  panel  and  its  image,  if  a  noncircular 
fuselage  panel,  on  a  field  point,  and  the  transforma¬ 
tion  from  the  local  panel  coordinate  system  to  the 
body  coordinate  system 

performs  the  [L*U]  decomposition  of  a  positive 
definite  matrix 

solves  the  system  of  equations  [L*U]  *  X  =  B 

computes  the  crossflow  velocity  components  for  an 

elliptic  body  subjected  to  a  nonuniform  flow  field 

V  ,  W  along  the  centerline 
avg  avg  * 

computes  source  panel  pressure  coefficient  using 
exact  Bernoulli  formula 

reads  input  file  produced  by  Program  I  which 
contains  all  of  the  data  read  or  computed  in 
Program  I  and  used  in  Program  II 

calculates  the  location  at  which  the  circular 
store  nose  shock  which  is  reflected  by  the  wing 
strikes  the  store  and  its  associated  3 

computes  the  resultant  velocities  at  a  field  point 
due  to  all  parent  aircraft  components  and  stores 
except  the  separated  store 

performs  the  transformation  from  the  body  interfer¬ 
ence  shell  panel  coordinate  system  to  the  empennage 
coordinate  system 
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ROTFW  performs  the  transformation  from  the  local  fin  panel 

coordinate  system  to  the  empennage  coordinate  system 

ROTWB  performs  the  transformation  from  the  empennage 

coordinate  system  to  the  body  interference  shell 
panel  coordinate  system 

ROTWF  performs  the  transformation  from  the  empennage 

coordinate  system  to  the  local  fin  panel  coordinate 
system 

SDSTN2  organizes  the  solution  for  panel  strengths  and 

forces  and  moments  for  the  elliptic  store 

SDSTRN  calculates  the  source  and  doublet  strengths  for 

the  separated  circular  store  including  the  effects 
of  the  image  store 

SDTRMS  evaluates  the  square  root  and  inverse  cosh  terms 

appearing  in  the  source  and  doublet  expressions 

SEMFOR  calculates  the  empennage  forces  and  moments  for 

the  circular-body  store  option 

SEMPIN  initializes  aerodynamic  and  geometric  parameters 

for  the  circular-body  store  empennage  model 

SFORCE  calculates  the  aerodynamic  forces  and  moments  on 

the  circular-body  store  using  the  three  dimensional 
method  with  line  sources  and  doublets 

SF0RC2  calculates  the  aerodynamic  forces  and  moments  on 

an  elliptic-body  store  using  the  three  dimensional 
method  with  source  panels 
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SHAPE 


calculates  the  radius  and  surface  slope  at  a 
point  on  a  body  from  input  polynomials 


I 

|  SHKLOC 

SIMSON 

SMARCH 

SOLVUV 

SORPAN 

SOUTPT 

SPEC  PR 

SPN  LD 

STRDAT 

STTOIN 


locates  the  shock  wave  from  an  axisymmetric  body 
at  coordinates  y,z  relative  to  the  body 

performs  Simpson  rule  integration 

solves  for  the  store  source  panel  strengths  in  the 
presence  of  an  image  body  using  a  ring  by  ring 
marching  technique 

reads  panel  on  panel  influence  coefficients  from 
TAPE8  to  compute  velocity  components  induced  at 
panel  control  points 

computes  the  three  velocity  components  induced  at 
a  specified  control  point  by  a  body  source  panel 

prints  the  forces,  moments,  load  distributions, 
and  trajectory  data  at  end  of  each  integration  step 

computes  the  Bernoulli  pressures  at  control  points 
of  the  constant  u-velocity  panels  on  the  fin 
sur  faces 

computes  the  span  load  distribution  for  planar 
or  cruciform  fin  configurations  only 

reads  separated  elliptic  store  data  into  labeled 

common  and  remaining  elliptic  stores  and  noncircular 

fuselage  data  sequentially  in  blank  common 

transforms  a  vector  with  components  in  the  store 
body  coordinate  system  to  one  with  components  in 
the  inertial  coordinate  system 


SWINT  finds  the  intersection  of  a  tabulated  store  shock 

wave  shape  with  a  circular  fuselage 

SWINTE  finds  the  intersection  of  a  tabulated  store  shock 

wave  shape  with  a  noncircular  paneled  fuselage 

THRCAL  calculates  thrust  from  input  polynomials 

VELBD2  calculates  velocities  due  to  body  interference 

panel  corner  points 

VELCAL  calculates  velocities  at  a  field  point  due  to 

fuselage,  rack,  or  store  line  sources  and  doublets 

VELDMP  computes  the  damping  velocities  due  to  the 

rotational  velocities  of  store 

VELNOR  calculates  the  perturbation  velocities  induced  by 

the  empennage  u-velocity  panels  at  an  empennage 
panel  control  point 

VELO  calculates  the  influence  of  a  semi-infinite  triangle 

associated  with  an  empennage  u-velocity  panel  at 
a  field  point 

VELO 2  calculates  the  influence  of  a  sem i- in f i n i te 

triangle  associated  with  the  corner  of  a  constant 
u-velocity  panel  on  the  wing,  fuselage,  or  pylon  at 
a  field  point 

VEL0T2  calculates  the  influence  of  a  semi-infinite 

triangle  associated  with  a  thickness  source  panel 
on  the  wing  or  pylon  at  a  field  point 


s 
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VELPP2 

calculates 

veloci ties 

a  t 

a  field 
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due 

to 

pylon  constant  u-velocity  panel  i 
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VELPT2 

calculates 

veloci ties 

a  t 

a  field 

po 

int 

due 

to 

pylon  thickness  panel 
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VELWP2 

calculates 

velocities 

a  t 

a  field 

po 

int 

due 

to 

wing  constant  u-veloc 

ity 

panel  corn 

er  ; 

po  int 

s 

VELWT2 

calculates 

velocities 

a  t 

a  field 

po 

int 

d  ue 

to 

VNORM 


VOTEX 


VPATH 


VPATHL 


wing  thickness  panel  corner  points 

computes  the  resultant  velocity  normal  to  a  surface 
at  arbitrary  orientations  0  and  6  from  velocities 
u,v,w 

computes  the  perturbation  velocity  components  at  the 
vortex  locations  accounting  for  mutual  interference 
effects  and  the  presence  of  a  finned  elliptical  body 
cross  section 

organizes  data  for  calling  VPATHL  for  multi-fin 
configurations 

computes  the  vortex  paths  and  vortex  induced  crossflow 
velocities  at  specified  field  points  for  a  set  of 


vortices  in  the  presence  of  a  body  at  variable  angle 
of  attack  and  roll 

VVELS  computes  the  perturbation  velocity  components  due 

to  NV  external  vortices  and  their  images  inside  a 
body  with  elliptical  cross  section 


VWAVG  averages  the  velocity  components  seen  by  a  ring 

of  body  source  panels 


computes  the  direction  cosines  and  velocities  due 
to  free  stream  translational  motion  of  the  store 

performs  interpolation  in  a  single  shock  wave  shape 
for  X  at  a  given  R 

performs  interpolation  in  multiple  shock  wave  shapes 
for  X  as  a  function  of  R  and  meridional  angle 

calculates  the  sigma  value  in  the  transformed 
circle  plane  for  given  tau  in  the  physical  plane  for 
for  elliptical  body  with  fins 

calculates  circular  image  store  velocities 
at  empennage  control  points 

calculates  the  velocities  due  to  the  image 
circular-body  store  on  the  real  store  fins 

C-2  Main  Program  -  TRJTRY 

The  main  program  TRJTRY  has  two  functions:  the  initializa¬ 
tion  of  the  properties  of  the  separating  store  and  the 
integration  of  the  time  dependent  equations  of  motion.  The 
initialization  sequence  includes  reading  the  file  produced  in 
Program  1,  reading  data  defining  the  properties  of  the  separating 
store  body  and  fins,  and  reading  data  defining  optional  thrust  and 
ejector  forces.  The  flow  chart  presented  in  Figure  C-2  shows  the 
basic  flow  of  the  calculations.  Those  pages,  the  description  in 
Section  3.1  of  Reference  1,  the  input  discussion  in  Section  3.2 
of  Reference  1,  and  the  descriptions  of  variables  in  common  in 
Appendix  D  should  be  sufficient  information  to  understand  the 
flow  of  the  program. 

The  last  three  pages  of  the  flow  chart  of  Figure  15  of 
Reference  1  have  been  expanded  and  presented  in  Figure  C-3.  This 


VXYZ 


XVSR 


XVSRT 


Z 


Z IMAGE 


ZIMSVL 
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portion  of  the  program  begins  with  FORTRAN  statement  label  62  of 
the  main  program  (Figure  C-l(c)),  and  is  the  integration  loop  of 
the  program.  The  first  step  in  the  loop  is  to  compute  the  forces 
and  moments  acting  on  the  store  body  and  empennag e ( s) .  If  the 
body  is  circular,  the  body  forces  are  computed  in  SFORCE  and  any 
empennage  forces  and  moments  computed  in  SEMFOR.  The  circular 
model  is  restricted  to  one  set  of  fins.  If  the  elliptic  body 
model  is  used,  the  body  forces  are  computed  in  SF0RC2  and  empen¬ 
nage  forces  and  moments  are  computed  in  DEMON2.  If  two  sets  of 
fins  exist,  routine  VPATH  may  be  used  for  certain  configurations 
to  integrate  the  trajectories  of  the  trailing  edge  vortices  from 
the  first  set  of  fins  to  the  leading  edge  of  the  aft  set  of  fins. 

When  two  sets  of  fins  are  used  under  the  elliptic  body 
option,  an  additional  computational  overhead  must  be  included  to 
compensate  for  the  requirement  to  use  external  storage  to  save  the 
arrays  and  geometries  associated  with  the  panel  solutions  for  the 
elliptic  body  and  each  empennage.  During  this  section  of  the 
force  and  moment  calculations  blank  common  must  be  used  to  store 
the  arrays  used  in  the  solutions  for  the  separating  and  fixed 
stores,  the  noncircular  fuselage,  and  each  of  the  sets  of  fins. 

The  elliptic  store  and  the  noncircular  fuselage  are  stored 
simultaneously  in  blank  common  in  the  order  prescribed  by  STRDAT. 
Only  the  data  on  TAPE7  is  read  prior  to  the  elliptic  store  body 
solution  in  SF0RC2  and  rewritten  immediately  afterwards  to  save 
the  new  store  solution.  The  first  call  to  EGMRST  reinitializes 
the  arrays  for  the  first  set  of  fins  and  copies  the  influence 
coefficient  matrices  for  the  first  empennage  into  blank  common. 
After  the  fin  solution  TAPE7  is  read  back  into  blank  common  to 
restore  the  elliptic  body  panel  strengths  for  the  calculation  of 
the  body  influence  on  the  aft  set  of  fins.  The  second  call  to 
EGMRST  brings  the  arrays  for  the  second  empennage  and  its 
influence  coefficient  matrix  into  blank  common.  The  solution  for 
the  second  fin  is  then  computed. 
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The  next  portion  of  the  program  solves  for  the  translational 
and  rotational  accelerations.  The  set  of  six  simultaneous 
equations  which  are  solved  are  given  in  Appendix  B  of  Reference  2, 
Equations  (B-16)  through  (B-18)  and  (B-41)  through  (B-43) . 

The  coefficient  matrix  and  right-hand  side  are  stored  in  the  FVN 
array.  The  first  subscript  of  FVN  is  the  equation  number.  The 
correspondence  is 


Subscript 

Value 


Equation 

Number 


1 

2 

3 

4 

5 

6 


B-16 
B-17 
B-18 
B-41 
B-4  2 
B-43 


The  second  subscript  of  FVN  is  the  term  in  the  equation.  Here  the 
correspondence  is 

Term 

l 

n 

l 

P 

q 

r 

Right-hand  side 

Thus,  for  example,  FVN(3,5)  is  the  coefficient  of  q  in  Equation 
(B-18).  Certain  parts  of  this  section  of  the  program  are  bypassed 


Subscript 
_ Value 

1 

2 

3 

4 

5 

6 
7 


if  the  store  center  of  gravity,  c.g.,  lies  on  the  store  moment 
center.  If  this  is  the  case,  x,y  and  z  are  zero  and  NASYM  equals 
zero . 

After  calculating  the  coefficient  matrix  and  right-hand  side 
of  the  set  of  equations,  subroutine  INVER2  is  called  to  solve  for 
the  accelerations  and  the  values  are  transferred  to  the  DVAR 
array.  The  next  steps  of  the  program  put  the  values  of  L ,  n, 
and  £  into  the  DVAR  array  and  calculate  the  values  of  ,  0,  and 
$,  which  are  also  put  in  the  DVAR  array.  The  DVAR  array  contains 


DVAR(l)  C 

D  VA  R  ( 2  )  n 

DVAR  (3)  C 

DVAR  (4)  p 

DVAR  (5)  q 

D  VA  R  ( 6 )  r 

D  VA  R  { 7  )  k 

D  VA  R  ( 8  )  H 

D  VA  R  ( 9  )  k 

DVAR  (10)  '? 

DVAR(ll)  0 

D  VA  R  ( 1  2 )  4> 


These  are  the  derivatives  of  the  twelve  dependent  variables. 

The  program  next  checks  to  see  if  the  integration  procedure 
has  reached  the  end  of  an  integration  step.  If  it  has  NOUT=l  and 
subroutine  SOUTPT  is  called  to  print  the  output.  Next  a  check  is 
made  to  see  if  the  end  of  the  trajectory  has  been  reached,  that 
is,  is  the  current  value  of  the  time  equal  to  the  final  time  which 
was  input.  If  it  is  then  the  program  stops.  If  the  end  has  not 
been  reached,  then  the  integration  routine,  subroutine  ADAMS,  is 


NDIFEQ  is  a  control  index  used  by  subroutine  ADAMS.  If 
NDIFEQ=1  upon  returning  to  the  main  program  an  error  condi¬ 
tion  has  been  encountered  in  ADAMS  and  the  calculation  is  to 
be  terminated.  If  2  <  NDIFEQ  <  7,  the  program  is  at  some 
intermediate  point  in  the  integration  from  one  point  to  the 
next.  When  NDIFEQ  >  7,  the  integration  of  one  step  has  been 
completed  and  NOUT  is  set  equal  to  1  so  that  the  output 
subroutine  will  be  called  after  the  derivatives  are  calculated. 

Subroutine  references: 

ADAMS,  CRFWBD ,  DEM0N2 ,  DIRCOS,  EGMRST,  FXBOD,  INVER2 ,  I OREAD , 

IOWRIT ,  IXBOD ,  RDFILE,  SEMFOR,  SEMPIN,  SFORCE,  SF0RC2,  SHAPE, 

SOUTPT ,  STRDAT,  THRCAL,  VPATH,  VXYZ 

C-3  Subroutine  ADAMS 

Subroutine  ADAMS  is  the  subroutine  which  integrates  the  set 
of  differential  equations.  The  subroutine  will  not  be  described 
in  detail,  however,  an  examination  of  the  flow  chart  (Figure  C-4) 
and  the  program  listing  (Figure  C-l(e))  will  indicate  how  it  func¬ 
tions.  All  returns  from  the  subroutine  are  to  the  main  program. 

Consider  the  following  set  of  n  differential  equations: 

Vy  *  f1(t,y1,y2 . yn) 


*n  °  fn(t'l'l'i’2 . yn> 
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This  subroutine  uses  a  fourth-order  Adams  predictor-corrector 
method  (Reference  3)  to  solve  the  above  set  of  equations.  To  find 
the  value  of  y^  at  the  (j+4)th  step,  the  following  formula  is 
used  to  predict  the  value 


y(p)  „ 

Yi, 3+4 


■yi,j+3+£  <55yi,j+3  "  59yi, j+2  +  37yi, j+1  "  9yi, j1  (<>1) 


This  assumes  that  all  of  the  y^  1  s  are  known  for  the  j,  (j+l)» 

( j  +  2 )  ,  and  (j+3)  steps.  The  quantity  h  is  the  interval  in  the 
independent  variable  between  these  points.  After  the  values  of 
the  y|Pj+4  have  been  found,  the  following  equation  is  used  to 
obtain  the  corrected  values: 


i,  j+4 


=  y 


i,  j  +  3 


_h_ 

24 


(9y^t4  +  19yiij  +  3-5ylfj+2  +  iii:j+l)  <C-2) 


The  use  of  the  above  equations  requires  that  four  evenly  spaced 
values  of  the  dependent  variables  be  known.  These  are  found  in 
this  subroutine  by  means  of  a  fourth-order  Runge-Kutta  method 
(Reference  3).  To  find  the  values  of  the  y^ ' s  at  the  (j+l)th  step, 
the  following  equation  is  used: 


+  2ki,2  +  2ki,3  +  ki , 4 5 


(C-3) 
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where 


k .  . 
i/l 


hf.  (t.,  x.  .,  x_  ■!•••!  x  .) 
i  3  1/3  ^/  3  n,  3 


ki,2  "  hfi  (tj  +  2  h'  xi,  j  +  2  kl,l'  ‘  "  xn, j  +  2  kn,l} 
ki, 3  =  hfi  (tj  +  2  h'  xl, j  +  2  klf  2'  ’  ’  '  '  Xn, j  +  2  kn,2) 


(C-4) 


k.  .=hf.  (t.+h,  x,  .  +  k.  x  .+  k  ,) 

1,4  l  j  l,j  1,3  n,j  n,3 


Thus,  given  initial  values  of  the  dependent  variables,  the 
y^’s,  the  independent  variable,  t,  and  the  integration  interval 
size,  h,  the  differential  equations  are  integrated  three  steps 
using  Equations  (C — 3 )  and  (C-4) .  At  this  point,  the  integration 
is  continued  using  Equations  (C-l)  and  (C-2) . 


A  discussion  of  both  the  Adams  and  Runge-Kutta  methods  is 
presented  in  Reference  3.  From  this  reference,  the  truncation 
error.  Ay,  at  a  given  step  can  be  shown  to  be 


Ay 


/  -  y(P). 

i ,  3  +  4  *1,3+4 


14.2 


(C-5) 


so  that  the  absolute  error  is 


4yABS  *  '4yl 


and  the  relative  error  is 


4yREL 


4yABS 
,  j  +  4  I 


(C-6) 
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A 


At  the  end  of  each  integration  step,  error  tests  could  be  per¬ 
formed  and  the  integration  interval,  h,  adjusted  accordingly.  In 
the  present  version  of  the  program  a  fixed  interval  size  is  used 
and  no  attempt  is  made  to  satisfy  error  specifications. 

The  quantities  in  the  parameter  list  are: 


H 

DS 

Y 

DY 

NEQ 

NDIFEQ 

S 


current  value  of  the  integration  interval 
integration  interval 

array  containing  current  values  of  the  dependent 
variables 

array  containing  current  values  of  the  derivatives 
of  the  dependent  variables 

number  of  equations  being  integrated;  routine 
dimensioned  for  a  maximum  of  12 
control  index 

current  value  of  independent  variable 


Called  by: 
TRJTRY 


C-4  Subroutine  BDCOEF 

Subroutine  BDCOEF  organizes  the  calculation  of  the  influ¬ 
ence  coefficient  matrices  for  the  elliptic  store  body  at  field 
points  (Xpp+X^g,  Ypp,  Zpp)  .  The  routine  is  used  to  compute  the 
influence  of  the  source  panels  of  the  elliptic  store  at 
u-velocity  panel  control  points.  A  listing  of  this  routine  is 
presented  in  Figure  C-l(e)  of  this  report. 

Routine  BDCOEF  performs  three  functions.  It  first  sets  aside 
temporary  locations  in  blank  common  to  hold  the  control  points  and 
the  additional  arrays  for  influence  coefficients.  Its  second 
function  is  to  copy  the  u-velocity  control  points  into  temporary 
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field  point  arrays.  The  field  points  are  in  the  empennage 
coordinate  system.  To  account  for  the  offset  of  the  empennage 
coordinate  system,  the  X^g  of  the  leading  edge  of  the  empennage 
from  the  body  nose  is  added  to  the  control  points.  To  prevent 
numerical  inaccuries  associated  with  field  points  lying  inside  the 
body  source  panels,  all  body  interference  panel  control  points  are 
radially  extrapolated  to  the  actual  elliptic  body  surface  in 
ELLCPT.  The  velocities  computed  at  these  field  points  are  then 
assumed  to  act  at  the  panel  control  points.  Its  third  function 
is  to  call  FLDAIC  to  generate  the  influence  matrices  for  the 
source  panels  at  the  above  field  points. 

The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

XFP, YFP, ZFP  arrays  containing  the  coordinates  in  the 

empennage  coordinate  system  at  which  the 
influence  coefficient  matrices  are  computed 

NFLD  number  of  field  points 

BETA  Mach  number  parameter  at  which  panel  solutions  are 

computed 

XWLE  distance  from  empennage  leading  edge  to  nose  of  body 

RA,RB  vertical  and  horizontal  semi-axes  of  elliptic 

section  at  body  interference  shell 

Subroutine  references: 

ELLCPT,  FLDAIC 

Called  by: 

CRFWBD 


2] 


C-5  Subroutine  BDUVW 


Subroutine  BDUVW  organizes  the  calculation  of  the  three 
velocity  components  from  the  influence  coefficient  matrices 
generated  in  BDCOEF.  It  sets  aside  temporary  array  space  in 
blank  common  for  the  calculations  and  calls  FLDUVW  to  compute 
the  velocities.  A  listing  of  this  routine  is  presented  in 
Figure  C-l(f)  of  this  report.  The  descriptions  of  the  parameters 
in  the  argument  list  follow: 

BDU , BDV, BDW  arrays  containing  the  three  orthogonal  velocity 
components  in  the  body  source  panel  coordinate 
system  at  the  field  points  defined  in  routine 
BDCOEF 

NFLD  number  of  field  points  at  which  velocities  are 

computed 

Subroutine  references: 

FLDUVW 

Called  by: 

DEM0N2 

C-6  Subroutine  BDYPR 

Subroutine  BDYPR  computes  the  linear  and  nonlinear  pressures 
at  points  on  the  empennage  interference  shell.  The  body  is 
assumed  to  be  covered  with  interference  shell  panels  and  the 
points  coincide  with  the  panel  control  poin*-=.  The  body  meridians 
on  which  the  points  lie  pass  through  t^e  control  points  of  the 
body  interference  panels.  A  listing  of  this  routine  is 
presented  in  Figure  C-l(f)  of  this  report. 
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BDYPR  performs  an  outer  loop  on  the  chordwise  number  of 
panels  on  the  interference  shell  with  a  second  inner  loop  on  the 
number  of  panels  on  a  ring  to  compute  the  pressure  at  the  panel 
control  points.  Routine  VELNOR  is  called  to  compute  the  three 
components  of  velocity  (UCliK,  VC  HK,WCHK)  at  the  panel  control 
points  due  to  u-velocity  singularity  strengths.  The  total 
velocity,  given  by  Equation  (C-7) ,  used  to  determine  the  panel 
pressure  is  composed  of  the  sum  of  the  velocities  induced  by 
u-velocity  panels,  induced  by  body  source  panels,  induced  by 
discrete  vortices,  and  contributions  due  to  pitching,  yawing,  and 
rolling  motion. 


u  = 

UCHK 

+ 

UBD 

+ 

UDMP 

v  = 

VCHK 

+ 

VBD 

+ 

V 

VRTX 

+  V 

DMP 

w  = 

WCHK 

+ 

WBD 

+ 

W 

VRTX 

+  W 

DMP 

(C-7) 


The  linear  and  nonlinear  pressures  are 
C 


linear 


=  -2  — 
V 


(C-8 ) 


^nonlinear  YM^ 
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where 


1  +  ^  cos  ac  -  ^  sin  ac  sin  4>r 


„  2,2,  2 

2w  a  .  u  +  v  +  w 

+  —  sin  a  cos  <t>  +  - ~ - 

V  c  r  2 

OO  V 


(C-10) 
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The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

NDAMP  option  to  include  p,q,r  velocity  contributions 

(0=no,  l=yes) 

XM  moment  center 

VSTORE  store  total  velocity 

VAR  array  containing  current  state  of  trajectory 

variables 

Subroutine  references: 

VELNOR,  VELDMP 

Called  by: 

SPEC  PR 

C-7  Subroutine  BVARIA 

Subroutine  BVARIA  calculates  the  B's  based  on  nonlinear 
shock  wave  shapes  of  the  various  fixed  aircraft  components  at 
a  point  (X_, YD, ZD)  .  No  value  is  computed  for  the  separated 

D  D  D 

store.  A  listing  of  the  routine  is  presented  in  Figure  C-l(f)  of 
this  report. 

The  B's  in  this  routine  are  computed  for  the  shocks 
propagating  from  the  fuselage  nose,  from  the  rack,  and  from  the 
fixed  stores.  They  are  computed  for  either  the  circular  or 
noncircular  fuselage  options,  and  for  either  or  both  the  circular 
or  elliptic  stores.  The  value  of  8  is  set  equal  to  the  free 
stream  8^  for  points  ahead  of  the  first  influence  of  the  nonlinear 
shock  shape  and  aft  of  the  linear  theory  Mach  wave  propagating 


from  XSHLDR .  Between  the  first  shock  influence,  designated  by  the 
parameter  BTNOSE  (=AX/AR) ,  and  the  return  to  3^,  a  linear 
interpolation  from  BTNOSE  to  3^  is  computed  based  on  the  axial 
location  at  a  constant  radial  distance  from  the  body  centerline. 
The  shock  shapes  for  the  circular  fuselage,  rack,  and  both  store 
types  are  assumed  to  be  generated  at  zero  angle  of  attack  and  the 
values  used  here  are  corrected  to  include  the  effects  of  this  body 
rotation.  The  noncircular  fuselage  shock  is  already  generated 
including  angle  of  attack  effects.  This  value  of  3  is  used  to 
compute  the  influence  at  that  point  for  all  panels  or 
singularities. 

The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

XB , YB , ZB  coordinates  of  points  at  which  influence  is  to  be 

computed  in  fuselage  body  system  in  Figure  3 

Subroutine  references: 

SHKLOC ,  XVSRT 

Called  by: 

DEMON2 ,  SFORCE,  SF0RC2,  SEMFOR 

C-8  Subroutine  CEL1 

Subroutine  CEL1  calculates  the  complete  elliptic  integral  of 
the  first  kind.  This  subroutine  has  been  taken  directly  from 
Reference  4.  For  a  description  of  the  routine  that  reference 
should  be  consulted.  A  listing  of  the  routine  is  presented  in 
Figure  C-l  (h)  .  The  comment  cards  give  a  brief  explanation  of  the 
use  of  the  routine. 
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Description  of  Parameters: 


RES 

r esul t 

value 

AK 

modulus 

( input) 

IER 

resultant  error  code  where 

IER=0, 

no  error 

IER=1 , 

AK  not  in  range  -1 

Called  by: 
SEMPIN 


C-9  Subroutine  CEL2 

Subroutine  CEL2  calculates  the  complete  elliptic  integral 
of  the  second  kind.  This  subroutine  has  been  taken  directly 
from  Reference  4.  For  a  description  of  the  routine  that 
reference  should  be  consulted.  A  listing  of  the  routine  is 
presented  in  Figure  C-l(i).  The  comment  cards  give  a  brief 
explanation  of  the  use  of  the  routine. 

Descriptions  of  Parameters: 

RES  result  value 

AK  modulus  (input) 

A  constant  term  in  numerator 

B  factor  of  quadratic  term  in  numerator 

IER  resultant  error  code  where 

I ER=0 ,  no  error 

I ER= 1 ,  AK  not  in  range  -1  to  +1 


failed  by : 
SEMPIN 


C-10  Subroutine  CRFWBD 

Subroutine  CRFWBD  reads  and  prints  the  input  for  the 
u-velocity  panels  on  the  empennage,  organizes  the  fin  and  body 
interference  panel  layout,  and  computes  the  corresponding  influence 
coefficient  matrix.  Both  the  L*U  decomposition  of  the  matrix  and 
the  various  geometric  arrays  required  for  the  pressure 
calculations  are  saved  on  TAPE 3  when  multiple  sets  of  fins  are 
present.  A  listing  of  this  routine  is  presented  in  Figure  C-l(i) 
and  a  flow  chart  is  given  in  Figure  C-5  of  this  report. 

CRFWBD  is  set  up  to  read  the  input  for  the  empennage  for  the 
elliptic  store  and  to  compute  the  various  parameters  which  remain 
constant  during  the  trajectory  calculations.  The  routine  can 
accept  input  for  from  one  to  four  arbitrarily  oriented  fins  with 
or  without  multiple  breaks  in  leading  and  trailing  edge  sweep.  If 
the  conf iguration  specified  is  an  i n te rd ig i ta ted  tail,  the  fins 
are  oriented  in  symmetric  pairs  at  the  angles  PHIDIH,  and  THETIT. 

The  routine  is  organized  to  read  and  initialize  the  geometry 
and  then  call  LAYOUT  to  compute  the  panel  corner  coordinates  for 
each  of  the  separate  fins,  and  call  LAYBIP  to  compute  the  panel 
corner  coordinates  for  the  body  interference  panels.  A  summary 
print  of  these  arrays  is  made.  BDCOEF  is  then  called  to  compute 
the  u,v,w  influence  coefficient  matrices  for  the  effect  of  the 
store  source  panels  on  the  empennage  panel  control  points.  These 
matrices  are  saved  on  TAPE10.  To  compute  the  influence  matrix  for 
the  empennage,  CRFWBD  performs  an  outer  loop  on  the  number  of 
influencing  panels  and  an  inner  loop  on  the  number  of  influenced 
panel  control  points.  VELNOR  is  called  to  compute  the  influence 
of  the  panel  in  the  local  fin  or  panel  coordinates  at  the  control 
point. 
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Routine  ROTWB  or  ROTWF  are  used  to  transform  the  coefficient 
back  to  the  empennage  coordinate  system.  The  FVN  array  containing 
the  panel  coefficients  is  decomposed  by  PAS001.  If  multiple 
empennages  are  to  be  considered  all  arrays  are  saved  on  TAPE3  by  a 
call  to  EGMSAV.  A  copy  of  the  influence  coefficient  matrix,  FVN, 
is  also  saved  on  TAPE3  for  later  use. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

AMACH  free  stream  Mach  number 

REFA  reference  area,  square  feet 

REFD  reference  diameter  of  body,  feet 

XLE  x  location  in  store  source  panel  coordinates 

of  leading  edge  of  wing,  feet 

RAZ  semi-axis  in  vertical  direction  of  elliptic 

body,  feet 

RBY  semi-axis  in  horizontal  direction  of  elliptic 

body,  feet 

KRAD  number  of  meridional  lines  used  to  define  panel 

boundaries  about  the  elliptic  body 

MLTFIN  logical  variable  option  for  multiple  fins: 

TRUE=multiple  empennages;  FALSE=single  empennage 

HEAD  array  containing  alphanumeric  heading  for  empennage 

Subroutine  references: 

BDCOEF,  EGMSAV,  IOWRIT,  LAYBIP,  LAYOUT,  PAS001,  ROTWB,  ROTWF 
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Called  by: 
TRJTRY 


C-ll  Subroutine  DASCRU 

Subroutine  DASCRU  performs  the  numerical  integration  of  the 
function  F  for  routine  VPATHL.  The  routine  varies  the  step  size 
to  obtain  best  accuracy  during  the  integration  of  the  vortex 
paths.  A  listing  of  the  routine  is  presented  in  Figure  C  —  1  ( 1 )  of 
this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

A  initial  time  or  spacial  variable 

B  final  time  of  spacial  variable 

H  time  or  spacial  step  size 

N  number  of  variables  to  be  integrated 

XO  array  of  dependent  variables  to  be  integrated 

WK  work  array 

IER  error  return  index 

E5  1/2  desired  resolution 

Subroutine  references: 

F 

Called  by: 

VPATHL 


C-12  Function  DBLU 

The  complex  function  DBLU  calculates  the  intermediate  transform 
variable  w  for  the  conformal  transformation  of  an  elliptical 
body  with  wings  to  the  transform  (circle)  plane.  The  equation 
programmed  is  described  in  Equation  (1112)  in  Appendix  I  of  Ref¬ 
erence  5.  This  routine  is  called  from  the  complex  function  Z. 


A  listing  of  this  routine  is  presented  in  Figure  C-l (m)  of  this 
r  e  po  r  t . 

The  description  of  the  parameter  in  the  argument  list  follows: 

Z  complex  location  of  control  point  in  crossflow  plane 

Z=complex  ( YC  P, ZCP) 


Called  by: 
Z 


C-l 3  Subroutine  DEM0N2 

Subroutine  DEM ON 2  calculates  the  right-hand  side  for  the 
boundary  conditions  of  the  u-velocity  panels  on  a  single  finned 
section,  calls  for  the  solution,  and  calls  SPECPR  for  the 
computation  of  pressure  distributions  and  loads.  The  right-hand 
side  is  computed  including  the  nonuniform  flow  field  of  the  parent 
aircraft,  the  presence  of  the  store  body  source  panels  and  their 
image  reflection  from  the  fuselage  or  wing,  the  presence  of 
discrete  vortices,  and  the  influence  of  the  angular  deflection  of 
control  surfaces.  A  listing  of  the  routine  is  presented  in 
Figure  C-l (n)  of  this  report.  A  flow  chart  of  DEMON 2  is  presented 
in  Figure  C-6.  This  routine  is  an  adaptation  of  the  methods  and 
equations  described  in  Sections  3.4  and  4.3  of  Reference  5  to  a 
nonuniform  flow  field. 

DEM0N2  requires  the  calculation  of  two  sets  of  matrices  on 
external  files  prior  to  its  call.  The  first  is  the  set  of  u,v,w 
influence  function  matrices  computed  by  BDCOEF  for  the  influence 
of  elliptic  body  source  panels  at  empennage  control  points.  These 
matrices  are  saved  on  file  TAPE10.  The  second  matrix,  the 
influence  coefficient  matrix  for  the  empennage  on  itself  computed 
in  CRFWBD,  is  saved  on  TAPE3. 
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The  primary  loop  in  this  routine  defines  the  right-hand  side, 
RHS,  of  the  velocity  equations  for  each  of  the  NWBP  u-velocity 
panels.  The  first  NPANLS  equations  covering  the  fins  are 
defined  in  terms  of  the  velocity  normal  to  the  surface.  The 
next  NBIP  panels  covering  the  body  interference  panels  are  set 
equal  to  zero.  All  angle  of  attack  and  parent  aircraft  effects 
are  assumed  to  be  included  in  the  source  panels  spanning  the 
same  portion  of  the  body.  The  velocities  summed  at  each  of  the 
NPANLS  fin  panels  used  to  compute  the  boundary  condition  are 


The  parent  aircraft  velocities,  UA^C,  VA/C'  WA/C'  are 
computed  in  the  parent  aircraft  system  by  RESVEL.  They  are 


rotated  into  the  store  body  axes  and  must  be  ratioed  by  V^/Voo  to 
account  for  the  change  in  store  velocity  relative  to  the  free 
stream.  The  components  V^,  V  ,  Vz  are  the  free-stream 
contribution  due  to  the  translational  motion  of  the  store  as 


computed  in  VXYZ .  The  body  source  panel  induced  veloci  ties,  UBD, 
VBD,  WBD,  on  fin  u-velocity  panels  are  computed  in  BDUVW.  If 
vortices  are  present,  their  effect  is  computed  by  a  call  to  VVELS 


as  VVRTX,  •  These  velocities  are  computed  at  fin  control 

points  and  at  the  projection  of  body  interference  panel  control 
points  onto  an  ellipse  1.0  percent  larger  than  the  actual  elliptic 
shape.  Only  the  trail  ing-edge  vortices  from  the  first  empennage 
may  currently  be  accounted  for.  The  velocities  due  to  the  body 
and  vorticity  computed  on  the  interference  shell  are  not  used  in 
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the  specification  of  the  right-hand  side,  but  are  used  later  in 

the  computation  of  the  pressures.  The  velocities  induced  by  the 

image  store  body,  VT_TM,  WT„TM,  are  computed  in  IMAGFN.  And 

lastly,  the  contribution  of  the  rotational  motion  of  the  store, 

IJ  WT-  V_,  W_ w_  ,  are  computed  in  VELDMP  and  added  to  the  totals. 
DMP  DMP  DMP  ^ 

To  specify  the  right-hand  side  the  velocities  in  the  body  axes 
are  rotated  into  the  local  panel  coordinates  by  ROTWF.  The  right 
hand  side  is  thus  defined 

RHS  =  -W  -  sin  6.  i  =  R,  L,  U,  D 

w  1 

and 

where  the  5.  are  the  deflections  of  the  fin  surfaces  for  the  i 1 th 
l 

f  in . 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

VA  R(N),  £ ,  n,  C/  p ,  q ,  r ,  5 1  hf  £ ,  T ,  0 ,  $ 

N=1 , 2, .  .  .12 

DC  direction  cosine  matrix.  A,  Equation  (B-2), 

Reference  2 

XMOM  moment  center  relative  to  store  nose,  feet 

VSTORE  ,  Equation  (97),  Reference  2 

°°s 

NDAMP  damping  indicator,  see  input  item  4 

FCOEF  array  containing  empennage  force  and  moments; 

V  V  V  Cn'  respectively 
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XLE 


x-station  of  leading  edge  of  empennage  coordi¬ 
nates  relative  to  body  nose  (positive  aft) 


HEAD 


alphanumeric  title  of  empennage 


Subroutine  references: 

BDUVW,  BVARIA,  ELLCPT,  INTOST,  IMAGFN,  I OREAD ,  PAS002, 
RESVEL,  ROTWF,  SPECPR,  STTOIN,  VELDMP,  VVELS 

Called  by: 

TRJTRY 


C-14  Subroutine  DIRCOS 

Subroutine  DIRCOS  computes  the  direction  cosines  which  relate 
the  store  body  coordinate  system  to  the  inertial  coordinate 
system.  The  direction  cosines  are  given  by  Equation  (B-2)  of 
Reference  2.  A  listing  of  the  routine  is  presented  in 
Figure  C-l  (o)  .  The  three  angles  ¥ ,  0,  and  4>  are  brought  into 
the  subroutine  in  A(10),  A(ll),  and  A(12),  respectively,  and 
the  direction  cosines  are  returned  in  the  D  array. 


Called  by: 
VXYZ 


C-15  Complex  Function  DSDZ 


Function  DSDZ  computes  the  complex  derivative  which  is  used 
in  Equation  (1124)  of  Reference  5  for  the  velocity  at  a  given  point 
due  to  vortices  and  in  Equation  (1134)  for  velocities  due  to  pitch, 
bank  and  vorticity.  The  methods  and  equations  used  here  are 
described  in  Equation  (1126)  in  Section  5.3  of  Appendix  I  of 
Reference  5.  A  listing  of  the  routine  is  presented  in  Figure 
C-l(o)  of  this  report. 
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m 


A 


Called  by: 

PITROL,  VOTEX,  VVELS 

C-16  Complex  Function  DZDS 

Function  DZDS  computes  the  complex  derivative  which  is  used 
in  Equation  (1124)  of  Reference  5  for  the  velocity  at  a  given 
point  due  to  vortices  and  in  Equation  (1134)  for  velocities  due 
to  pitch,  bank  and  vorticity.  The  methods  and  equations  used  here 
are  described  in  Equation  (1125)  in  Section  5.3  of  Appendix  I  of 
Reference  5.  A  listing  of  the  routine  is  presented  in  Figure  C-l(o) 
of  this  report.  The  description  of  the  argument  list  follows: 

S  complex  function  of  Z(X,Y) 

Called  by: 

VOTEX 


C-17  Complex  Function  D2SDZ2 

Function  D2SDZ2  computes  the  complex  second  derivative  which 
is  used  in  Equation  (1124)  of  Reference  5  for  the  velocity  at  a 
given  point  due  to  vortices  and  in  Equation  (1134)  for  velocities 
due  to  pitch,  bank  and  vorticity.  The  methods  and  equations  used 
here  are  described  in  Equation  (1128)  in  Section  5.3  of  Appendix  I 
of  Reference  5.  A  listing  of  the  routine  is  presented  in  Figure 
C-l(p)  of  this  report.  The  description  of  the  argument  list 
follows : 

S  complex  function  of  Z(X,Y) 

Called  by: 

VOTEX 
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C-18  Subroutine  EGMSAV 

Subroutine  EGMSAV  saves  the  common  blocks  generated  by 
routine  CRFWBD  that  are  required  by  DEMON2  to  complete  the 
solutions  for  the  elliptic  store  multiple  interference  shells. 

This  routine  is  used  to  save  the  empennage  data  arrays  on  TAPE 3 
when  two  sets  of  fins  and  interference  shells  exist.  EGMSAV 
writes  unformatted  all  the  variables  in  common  blocks  ONE,  THREE, 
SWEEPS,  INTRDT,  and  WBTR  on  TAPE3.  The  arrays  in  these  common 
blocks  constitute  the  minimum  information  that  may  be  saved  to 
restart  the  empennage  calculations.  A  listing  of  this  routine  is 
presented  in  Figure  C-l(p)  of  this  report. 

Subroutine  references: 

IOWRIT 

Called  by: 

CRFWBD 

C-19  Subroutine  EGMRST 

Subroutine  EGMRST  restores  the  data  in  the  common  blocks 
saved  by  routine  EGMSAV.  The  information  is  read  unformatted  from 
TAPE3.  Use  of  TAPE3  allows  routines  CRFWBD  and  DEMON2  to  be  used 
for  more  than  one  empennage.  The  arrays  read  define  all  the 
variables  in  common  blocks  ONE,  THREE,  SWEEPS,  INTRDT,  and  WBTR. 

A  listing  of  the  routine  is  presented  in  Figure  C-l  (p)  of  this  report. 

Subroutine  references: 

I OREAD 

Called  by: 

TRJTRY 
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C-20  Subroutine  EJECTR 

Subroutine  EJECTR  calculates  ejector  forces  and  moments  acting 
on  the  separating  store.  It  is  called  from  three  different  places 
in  TRJTRY.  A  listing  of  the  routine  is  presented  in  Figure  C-l(p) 
of  this  report. 

The  first  call  to  EJECTR  with  the  variable  NJECTR=1  causes  the 
portion  of  the  routine  which  reads  and  prints  the  ejector  input 
data  to  be  executed.  The  input  data  are  items  5  through  8  to 
Program  II  and  are  described  in  Section  4.2.2  of  Volume  II 
(Reference  1).  Before  returning  to  TRJTRY,  NJECTR  is  set  equal 
to  2. 


The  second  call  to  the  routine  with  NJECTR=2  causes  transfer 
to  the  part  of  the  routine  which  locate?  the  ejector  feet,  one 
or  two,  when  the  separating  store  is  in  the  carriage  position. 

The  locations  of  the  feet  are  calculated  in  the  inertial  coordi¬ 
nate  system  and  stored  in  the  XYZEI  array.  Upon  returning  to 
TRJTRY,  NJECTR  is  set  equal  to  3. 

The  third  call  to  EJECTR  occurs  within  the  trajectory  integra¬ 
tion  loop  of  TRJTRY  with  NJECTR=3.  The  first  steps  in  this  section 
of  the  routine  are  to  locate  the  store  moment  center  and  one  other 
point  on  the  store  axis  in  the  inertial  coordinate  system.  The 
ejector  forces  and  moments  are  then  initialized  to  zero.  The 
remainder  of  the  routine  is  a  DO  loop  over  the  number  of  feet. 

The  store  radius  at  the  axial  location  of  the  foot  is  determined 
and  then  calculations  are  performed  which  determine  the  Y,Z  coordi¬ 
nates,  in  the  inertial  system,  of  the  point  at  which  the  foot 
strikes  the  store  body.  These  coordinates  are  used  along  with 
the  foot  location  in  the  carriage  position, previously  calculated, 
to  determine  the  distance  the  foot  has  traveled.  If  the  distance 
exceeds  the  input  stroke  length,  forces  and  moments  for  this  foot 
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are  not  calculated.  If  the  foot  travel  does  not  exceed  the  stroke 
length,  the  total  ejector  force  is  calculated  and  resolved  into 
components  in  the  inertial  system. 

The  last  parts  of  this  loop  calculate  the  forces  and  moments 
due  to  the  ejector  foot  in  the  store  coordinate  system.  The  first 
step  is  to  take  the  forces  in  the  inertial  coordinate  system  and 
using  subroutine  INTOST  project  them  into  the  store  system.  The 
point  at  which  these  forces  act  is  found  by,  first,  locating  the 
point  in  the  inertial  system  relative  to  the  store  moment  center 
and  then,  with  a  call  to  INTOST,  locating  the  point  in  the  store 
system.  With  this  point  determined,  the  ejector  foot  induced 
moments  are  calculated. 

The  descriptions  of  the  parameters  in  the  subroutine  argument 
list  follow: 

DC  direction  cosines  relating  the  inertial  coordinate 

system  to  the  store  coordinate  system 

VAR  array  containing  the  dependent  variables  in  the 

trajectory  integration;  n,  £,  p,  q,  r,  £ ,  g , 

0,  <5 

DTOR  degrees  to  radians  conversion  factor;  tt/180° 

TIME  current  value  of  time  in  the  trajectory  calculation 

measured  from  the  beginning  of  the  trajectory,  sec. 

STLGTH  length  of  separating  store,  feet 

XMOM  store  moment  center  location  measured  relative  to 

store  nose,  positive  behind  nose;  feet 
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NPOLY  number  of  polynomials  describing  circular  store 

body  shape 

COEF  array  containing  the  coefficients  of  the  NPOLY 

polynomials 

XEND  array  containing  values  of  x/£  of  the  end  points  of 

the  NPOLY  polynomials 

ELLSTR  store  type  logical  indicator; 

ELLSTR=true,  elliptic  store 
ELLSTR=f a  1 se ,  circular  store 

Subroutine  references: 

SHAPE,  STTOIN ,  INTOST 

Called  by: 

TRJTRY 

C-21  Subroutine  ELI1 

Subroutine  ELI1  calculates  the  general  elliptic  integral  of 
the  first  kind.  This  subroutine  has  been  taken  directly  from 
Reference  4.  For  a  description  of  the  routine  that  reference 
should  be  consulted.  A  listing  of  the  routine  is  presented  in 
Figure  C-l  (r)  .  The  comment  cards  give  a  brief  explanation  of 
the  use  of  the  routine. 

Description  of  Parameters: 

RES  result  value 

X  upper  integration  bound  (argument  of  elliptic 

integral  of  first  kind) 


38 


CK 


complementary  modulus 


Called  by: 

SEMPIN 

C-22  Subroutine  ELI2 

Subroutine  ELI2  calculates  the  general  elliptic  integral  of 
the  second  kind.  This  subroutine  has  been  taken  directly  from 
Reference  4.  For  a  description  of  the  routine  that  reference 
should  be  consulted.  A  listing  of  the  routine  is  presented  in 
Figure  C-l(s).  The  comment  cards  give  a  brief  explanation  of 
the  use  of  the  routine. 

Description  of  Parameters: 

R  result  value 

X  upper  integration  bound  (argument  of  elliptic 

integral  of  second  kind) 

CK  complementary  modulus 

A  constant  term  in  numerator 

B  quadratic  term  in  numerator 

Called  by: 

SEMPIN 
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Subroutine  ELLC  PT  performs  a  r  ad  ;  1 1  •-  x  t  r  1  p  1  1  i  •  :  .■ : .  it  *  rie  Y,  1 
coordinates  of  a  control  point  >!  1  t>o  1  /  :  n  t  >■  r  f  e  r  .  ■.  p^fle  1  or.  ur, 

elliptic  store  to  a  point  on  t  tie  surface  if  t  he  ellipse.  This 
routine  compares  the  radial  distance  from  t  fie  -enter  line  ♦  '  fie 

control  point,  RCPT,  to  the  r  ad  i  a  1  distance  t>.  t  he  surface  ,f 
the  ellipse,  RBOD Y .  It  the  control  point  lies  within  the  ellipse, 

the  control  points  are  redefined  to  lie  on  the  surface  using  the 
following  equations: 


R 


CRT 


.Vi 


CP 


L  i’ 


R 


‘CP 


1  .  u 


BODY 


...  C1.’ 
,kcpt  rb 


jcp 


fRBODY) 

^  RCPT'  'CPold 


A  listing  of  this  routine  is  presented  in  Figure  C-l(t)  of 
this  report.  The  desc  r  i  [it  i  ons  of  the  parameters  in  t  fie  argu¬ 
ment  list  follow: 

YCP,ZCP  Y  and  Z  ordinates  of  control  point  on  surface 

of  pa n e  1 
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RA 


Stin  i  -ax  i  s  of  ellipse  in  vertical  direction 


RB  Siiii-axis  of  ellipse  in  horizontal  direction 

Ca 1  1  ed  by : 

BDCOEF,  DEMON  2 


C-24  Subroutine  ELLSHP 

Subroutine  ELLSHP  computes  the  horizontal  and  vertical  semi¬ 
axes  and  their  axial  derivat  ives  for  an  elliptic  store  shape.  The 
calculation  is  performed  by  table  look  up  in  the  elliptic  store 
input  geometric  shape.  For  a  given  axial  station  the  closest  two 
input  sections  are  located  and  the  axes  and  their  derivatives 
computed  by  linear  interpolation  between  them.  The  parameter 
IGROW  is  also  set  to  one  if  the  derivative  of  cither  of  the  axes 
is  greater  than  0.002  to  indicate  an  expanding  or  contracting  cress 
section  is  to  be  used  in  VPATHL.  A  listing  of  the  routine  is 
presented  in  Figure  C-l(t)  of  this  report.  The  descriptions  of 
the  parameters  in  the  argument  list  follow: 

X  axial  station  (positive  aft)  at  which  geometry  is 

computed 

By . AZ  horizontal  and  vertical  semi-axes  of  ellipse  at  X 

BYP.AZP  dBY/dx  and  dAZ/dx,  derivatives  at  X 

Called  by : 

F,  VPATHL 


C-2S  Subroutine  ELRFLB 


Subroutine  ELRFLB  computes  the  parameters 
image  elliptic  store  relative  to  the  fuselage. 


which  locate  the 
The  fuselage  may 


4  1 


either  be  circular  or  noncircular.  The  basic  calculations 
performed  here  are  in  the  fuselage  coordinate  system  of  Figure  5 
Volume  II,  although  four  different  coordinate  systems  are 
involved.  A  listing  of  the  routine  is  presented  in  Figure 
C  —  1  ( t )  of  this  report. 

The  sequence  of  calculations  for  the  locations  of  the  image 

store  and  the  first  influence  of  the  reflected  shock  on  the  real 

stor  are  as  follows.  ELRFLB  first  computes  the  location  of  the 

stole  nose  in  fuselage  coordinates  (XBN, YBN, ZBN) ,  the  meridian 

angle  between  the  store  and  fuselage  centerlines 

(  *  =  tan  ^ (-YBN/-ZBN) ) ,  and  the  angle  of  the  fuselage 

SF 

with  the  store  axis,  iSHK  =  .'-SF  +  4 •  A  table  of  rgHK  versus 
x sijk  relative  to  the  store  is  then  generated  in  the  plane  containing 
the  store  nose  and  the  fuselage  centerline  at  and  rotated 

into  the  fuselage  body  axes  of  Figure  5  of  Volume  II.  The  table 
is  generated  by  XVSRT  from  the  elliptic  store  shock  shape  at 
zero  degrees  angle  of  attack  rotated  to  a(l-e  ).  The  location 
of  the  intersection  of  the  above  tabulated  shock  shape  with 
the  fuselage  at  XD„,  R_ _  relative  to  the  store  nose  is  computed 

DO  DO 

in  SWINT  when  the  circular  store  model  is  used  and  in  SWINTE 
when  the  noncircular  store  model  is  present.  The  location  of  the 
store  and  the  store  shock  reflecting  from  the  fuselage  are  shown 
pictorially  in  Figure  C-7. 

The  angle  the  shock  reflects  from  the  fuselage  surface  is  com¬ 
puted  from  the  angle  the  shock  strikes  the  fuselage,  !>s,  plus 
twice  the  angle  of  the  local  fuselage  surface  slope, 


The  intersection  of  the  reflected  shock  with  the  store  body  is 
computed  from  the  intersection  of  the  line  through  the  store 
centerline  and  the  straight  line  projection  of  the  shock  at  the 
angle,  'j  ,  from  the  point  of  contact  on  the  fuselage. 
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Equation  of  store  axis 


RBR  RBN  +  tan  a  *  ^XBR  ~  XBN) 


Equation  of  reflected  shock 


^R  RBS  +  tan  °r  '  ^ XBR  ~  XBS) 


where 


tan  a  -- 


RCG  RBN 
XBCG  “  XBN 


The  point  at  which  the  reflected  shock  intersects  the  store 
axis  is 


RBN  +  XBN  *  tan  a  “  XBS  tan  °r 


BR 


(tan  a  -  tan  9  ) 
r 


RBR  RBN  +  tan  a  ’  (XBR  ”  XBN} 


Tests  are  made  to  see  whether  the  two  lines  are  parallel,  whether 
the  reflected  angle  is  close  to  90°,  and  whether  the  intersection 
point  on  the  store  axis  is  aft  of  the  last  store  station.  The 
error  indicator  IMFSTR  is  set  equal  to  zero  for  the  first  and  last 
case.  If  the  angle  or  =  90°,  XBR  is  set  to  XBS .  The  last 
parameters  computed  define  the  location  and  B's  associated  with 
the  image  store.  Their  description  and  the  descriptions  of  the 
parameters  in  the  argument  list  follow.  Their  pictorial 
representations  are  found  in  Figure  C-7. 

ALPHAC  store  included  angle  of  attack  at  local  flow 

condition 

PHIR  store  roll  orientation  relative  to  flow  angle  of 

a  ttack 


VAR12  store  inertial  roll  orientation;  see  VAR(12)  in 

TRJTRY 

RSSC  distance  from  store  nose  to  fuselage  centerline; 

locates  line  source  image  on  fuselage  centerline 

RSS  location  of  line  source  image  and  doublet 

2 

image;  RSS  =  RSSC-RBS  /RSSC 

BTNOSC  centerline  line  source  image  nose  BETA  (=XSR/RSSC) 

BTNOSF  doublet  and  line  source  pair  image  nose 

BETA  ( =XSR/RSS) 

SFAC  image  line  doublet  multiplying  factor  ( =RBS2/RSSC2 ) 

XBR , RBR  axial  and  radial  distance  from  fuselage  in  plane 

of  reflection  to  intersection  with  store  centerline 

XSR  axial  distance  from  store  nose  to  point  of  contact 

of  shock  reflection 

BTNOSN  image  store  nose  BETA  (=XSR/2 (RBN-RBS) )  computed 

for  shock  reflected  from  fuselage  striking  store 
centerline  at  XSR 

Subroutine  references: 

STTOIN ,  SWINT,  SWINTE,  XVSRT 

Called  by: 

SFORC 2 


C  -26  Subroutine  ELRFLW 


Subroutine  ELRFLW  calculates  the  shock  shape  between  the  store 
and  the  wing  surface  and  calls  REFSHK  to  compute  the  location  of 
the  wing  image  store.  The  angle,  PHI,  is  computed  to  define  the 
location  of  the  plane  of  the  shock  shape  relative  to  the  store 
axes  to  be  used  for  the  reflection  calculation.  A  table  of  shock 
X  and  R  values  are  generated  by  successive  calls  to  XVSRT. 

Routine  REFSHK  uses  this  tabulated  shape  to  find  the  wing 
reflection  intersection  and  image  store  location.  A  listing 
of  the  routine  is  presented  in  Figure  C-l(u)  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

ALPHAS  store  included  angle  of  attack  at  local  flow 

cond i t ion 

PHIR  store  roll  orientation  relative  to  flow  angle  of 

attack 

VAR12  store  inertial  roll  orientation;  see  VAR(12) 

in  TRJTRY 

Subroutine  references: 

REFSHK,  XVSRT 

Called  by: 

SFORC 2 


C-27  Subroutine  EXPAND 


Subroutine  EXPAND  calculates  the  crossflow  velocities 
by  an  expanding  or  contracting  elliptical  cross  section, 
ellipse  is  assumed  to  have  independently  varying  elliptic 


i nd  uced 
The 
axes , 


AZ  and  BY.  The  component  velocities  in  the  crossflow  plane  are 
computed  by  conformal  mapping  of  the  elliptic  shape  into  a 
circle  in  the  complex  plane. 

The  equations  programmed  are  essentially  those  in  Reference  5, 
Section  8  of  Appendix  I,  modified  for  independently  varying  AZ 
and  BY.  A  listing  of  this  routine  is  presented  in  Figure  C-l(u) 
of  this  report.  The  descriptions  of  the  parameters  in  the 
argument  list  follow: 

BYP  dBY/dx,  rate  of  change  of  horizontal  elliptic  axis 

with  axial  distance;  positive  expanding  aft 

AZP  dAZ/dx,  rate  of  change  of  vertical  elliptic  axis 

with  axial  distance;  positive  expanding  aft 

X , Y  horizontal  and  vertical  location  in  crossflow 

plane  of  points  at  which  velocities  are  computed 

VS,VvS  horizontal  and  vertical  components  of  velocity  in 

crossflow  due  to  unit  velocity  normal  to  section 

Called  by: 

F 

C-28  Subroutine  F 

Subroutine  F  is  called  in  the  vortex  path  integration  scneme 
to  compute  the  total  local  crossflow  velocity  in  the  vicinity  of 
the  body  alone  due  to  pitch,  sideslip,  body  volume,  and  the 
presence  of  other  vortices.  This  routine  is  adapted  from  Appendix 
L  of  Reference  5  and  is  called  from  DASCRU  to  compute  the 
velocities  required  for  the  path  integration.  The  crossflow 
velocities  due  to  pitch  and  angle  or  sideslip  are  computed  in 
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PTTROL.  The  components  due  to  body  volume  are  computed  in  EXPAND 
and  the  presence  of  other  vortices  in  VOTEX.  The  resulting 
components  are  summed,  normalized  and  saved  in  the  temporary  work 
vector,  WK.  A  listing  of  this  routine  is  presented  in  Figure 
C-l(u)  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 

XO  vector  containing  V  and  Z-coord inates  of  points  at 

which  velocities  are  to  be  computed 

PX  axial  station  of  section  under  consideration 

N  number  of  independent  variable;  unused 

WK  work  array  containing  normalized  velocities  n 

return 

Subroutine  references: 

ELLSHP,  EXPAND,  PITROL,  VOTEX 

Called  by: 

DA SC RU 

C-29  Subroutine  FLDAC2 

Subroutine  FLDAC2  specifies  the  local  panel  geometry  for  the 
generation  of  the  influence  coefficients  of  the  source  panels 
in  a  single  segment  at  a  prescribed  set  of  field  points. 
Coefficients  for  each  of  the  orthogonal  velocity  components 
are  computed  for  a  ring  on  each  of  the  field  points  and  saved 
on  an  external  file.  This  routine  is  called  by  FLDAIC.  A 
listing  of  this  routine  is  presented  in  Figure  C-l(v)  of  this 
report. 


47 


Routine  ELDAC2  performs  the  analogous  function  as  BODVEL, 
except  that  it  computes  influence  coefficients  for  panels  at  field 
points.  The  routine  performs  the  outside  loop  on  the  number  of 
rings  in  the  segment.  The  middle  loop  initializes  the  panel 
geometry  and  control  points  in  the  local  panel  coordinates.  The 
innermost  loop  calls  PANVEL  to  calculate  the  influence  of  the 
panel  at  each  of  the  field  points.  At  the  end  of  the  middle  loop 
the  coefficient  array  for  the  influence  of  the  panels  in  the  ring 
under  consideration  on  all  the  field  points  is  written  unformatted 
onto  external  file,  lAPElO.  Additional  logic  is  also  included  to 
skip  unnecessary  calculations.  If  the  sum  of  the  squares  of  each 
of  the  component  coefficients  is  zero  for  an  entire  ring  of  panels 
at  a  single  field  point,  all  subsequent  rings  downstream  in 
supersonic  flow  are  set  to  zero  also. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 

XPT,YPT,ZPT  arrays  of  the  coordinates  of  the  source  panel 
control  points  for  the  entire  body 

THET  array  of  inclination  angles  for  panels 

DELTA  array  of  incidence  angles  for  panels 

XFP,YFP,ZFP  arrays  of  coordinates  of  field  points 

UB  temporary  array  dimensioned  UB ( 3 , NFLD , JR )  to  contain 

u,v,w  influence  coefficients  for  a  ring  on  all 
field  points 

SVN  temporary  array  used  to  test  influence  of  ring 

on  point 

LSKP  temporary  array  used  as  logical  indicator  of  no 

further  influence  at  point 
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NFLD 


number  of  field  points 


XC  ,  YC  ,  ZC 

KFUSOR 

IXZSYM 

IFU 

JR 

Subroutine 

IOWRIT, 

Called  by: 
FLDAIC 


arrays  of  coordinates  of  panel  corners  for 
segment 

number  of  axial  station  bounding  panels  in 
segment 

body  symmetry  indicator 

segment  number  index 

number  of  panels  in  ring  J 

references : 

PANVEL 


C-30  Subroutine  FLDAIC 

Subroutine  FLDAIC  organizes  the  generation  of  the  influence 
coefficients  due  to  body  source  panels  at  field  points,  XFP, 

YFP,  and  ZFP.  This  routine  performs  the  loop  on  the  number  of 
body  segments.  For  each  body  segment  the  starting  locations 
in  blank  common  of  the  panel  geometry  arrays  are  initialized 
and  FLDAC2  called  to  compute  the  influence  coefficients.  A 
listing  of  this  routine  is  presented  in  Figure  C-l  (v)  of  this 
r epo  r t . 

The  descriptions  of  the  parameters  in  the  argument  list  follow 
XFP, YFP, ZFP  arrays  of  coordinates  of  field  points 
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SVN 


temporary  array  used  to  test  influence  of  ring 
on  point 


LSKP  temporary  array  used  as  logical  indicator  of  no 

further  influence  at  point 

UB  temporary  array  dimensioned  UB ( 3 , NFLD , JR )  to  contain 

u,v,w  influence  coefficients  for  a  ring  on  all 
field  points.  JR  =  number  of  panels  in  ring 

NFLD  number  of  field  points 

Subroutine  references: 

FLDAC2 

Called  by: 

BDCOEF 


C-31  Subroutine  FLDUVW 

Subroutine  FLDUVW  computes  the  U,V,W  velocity  components  at 
field  points  from  the  influence  coefficient  matrices  stored  on 
external  file  TAPE10.  The  routine  performs  the  matrix  multi¬ 
plication  of  the  coefficients  times  the  panel  strengths  to  get 
the  velocities  as  follows. 

U  =  [UB1]  ’  GB 
V  =  [UB2]  •  GB 
W  =  [UB3]  *  GB 

The  coefficient  matrices  are  stored  in  blocks  corresponding  to 
the  influence  of  a  ring  of  panels  on  all  the  field  points.  A 
listing  of  the  routine  is  presented  in  Figure  C-l(w)  of  this 
report.  The  descriptions  of  the  parameters  in  the  argument 
list  follow: 
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UB  temporary  array  of  size  3*NFLD*JR  to  hold  influence 

coefficients.  JR  =  number  of  panels  in  ring 

GB  arrays  of  panel  strengths 

U,V,W  computed  orthogonal  velocity  components  in  source 

panel  coordinate  system  at  field  points 

NFLD  number  of  field  points 

JROW(J)  array  of  NRING  values  of  number  of  panels  in  Jth 

ring 

NRING  number  of  ring  of  panels 

Subroutine  references: 

I  OR  EAD 

Called  by: 

DEMON  2 

C-32  Subroutine  FLDVEL 

Subroutine  FLDVEL  is  used  to  organize  the  computation  of  the 
u,  v,  w  velocity  components  at  the  field  points  XFP,  YFP,  ZFP. 

This  routine  initializes  all  velocities  to  zero  and  computes  the 
locations  of  the  required  geometric  and  strength  arrays  in  blank 
common  for  the  fuselage  or  store  at  hand.  If  the  configuration 
models  the  fuselage  with  inlets,  variable  INLET  is  initialized  to 
TRUE  to  indicate  presence  of  inlet  panels.  It  then  performs  the 
looping  for  the  number  of  segments  and  the  number  of  rings  in  each 
segment  to  sum  the  component  velocity  contributions  at  each  field 
point.  The  variable  IDLAST  is  incorporated  in  this  version  to 
permit  skipping  program  initialization  logic  when  making  multiple 


calls  with  the  same  configuration  data.  A  listing  of  the  routine 
is  presented  in  Figure  C-l(w)  of  this  report. 


The  descriptions  of  the  parameters  in  the  argument  list 
follow: 


XFP, YFP, ZFP 


SVN 

LSKP 


U,V,W 


NFLD 

ID 

IG 


arrays  of  coordinates  of  field  points  in  coordinate 
system  of  body  panels  at  which  component  velocities 
are  computed 

temporary  array  of  length  NFLD  used  to  test  for 
zero  influence  at  field  point 

temporary  logical  array  of  length  NFLD  used  to  test 
for  zero  influence  of  ring  of  panels  at  field  point 
arrays  of  component  velocities  computed  for 
influence  of  body  at  field  points 
number  of  field  points 

array  containing  the  same  variables  in  the  same  order 
as  in  common  DIMENS 

index  specifying  IGth  strength  solution,  GB,  to 
be  used 


Subroutine  references: 
FLDVL2 


Called  by: 

IMAGFN ,  RESVEL 


C-33  Subroutine  FLDVL2 

Subroutine  FLDVL2  computes  the  three  components  of  velocity 
induced  at  specified  field  points  by  the  source  panels  of  a  given 
ring  of  body  panels.  The  field  point  is  assumed  to  have  no 
incidence  or  inclination  relative  to  the  flow.  A  listing  of  the 
routine  is  presented  in  Figure  C-l (x)  of  this  report. 


52 


The  routine  first  initializes  the  field  point  inclination  and 
incidence  transformations  to  zero.  For  each  of  the  influencing 
panels  on  a  ring  the  control  point  coordinates,  inclination  and 
incidence  angles  and  corner  points  in  the  local  panel  system  are 
defined.  For  each  panel,  $£  is  initialized  to  SQ.  For  panels  used 
to  model  inlet  openings,  6^  is  set  to  the  minimum  of  3Q  and  BTINLT. 
Further,  if  an  inlet  panel  slope  exceeds  BTINLT,  $£  is  set  to 
0.99/tan5.  For  each  of  the  field  points  the  influence  of  the 
panel  on  the  field  point  is  computed,  multiplied  times  the  panel 
strength  and  summed. 

To  minimize  computational  time  FLDVL2  tests  whether  each  ring 
of  panels  contributes  to  the  total  velocity  at  a  given  field  point. 
For  each  point  the  following  sum  is  made  for  each  panel  on  the  ring 

SVN (I )  =  UB2  +  VB2  +  WB2 


where  UB,  VB ,  WB  are  the  influence  coefficients  of  a  panel  at  the 
Ith  field  point.  If  the  net  influence  for  a  complete  ring,  SVN  is 
equal  to  zero  the  logical  variable  LSKP(I)  for  that  field  point  is 
set  .TRUE,  and  all  further  calculations  at  that  point  are  sup¬ 
pressed.  This  is  based  on  the  assumption  that  at  supersonic  speeds 
once  a  point  is  ahead  of  the  Mach  waves  from  a  ring,  the  influence 
of  that  ring  and  all  subsequent  rings  will  vanish. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 


XPT, YPT, ZPT 

THET 

DELTA 

GB 

XFP, YFP, ZFP 

u,v,w 


arrays  of  the  coordinates  of  the  source  panel 
control  points  for' the  entire  body 
array  of  inclination  angles  for  panels 
array  of  incidence  angles  for  panels 
array  of  panel  strengths 
arrays  of  coordinates  of  field  points 
arrays  of  orthogonal  velocity  components  at 
panels  in  x,  y,  and  z  directions 
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SVN 


temporary  array  used  to  test  influence  of  ring 
on  point 


LSKP 

temporary  array  used  as  logical 

indicator  of 

further  influence  at  point 

NFLD 

number  of  field  points 

XC  ,  YC  ,  ZC 

arrays  of  coordinates  of  panel 

corners 

for 

segment 

KFUSOR 

number  of  axial  station  bounding  panels 

in 

segment 

IXZSYM 

body  symmetry  indicator 

JR 

number  of  panels  in  ring  J 

JG 

starting  offset  index  of  first 

panel  in 

ring 

L 

index  of  trailing  x-station  in 

segment 

Subroutine 

references : 

PANVEL, 

INLTST 

Called  by: 

FLDVEL,  IMAGEV,  IMAGFN 

C-34  Subroutine  FORMOM 

Subroutine  FORMOM  calculates  the  forces  and  moments  on  a  non¬ 
circular  body.  It  sums  the  three  components  of  force  and  three 
moments  calculated  from  the  pressures  predicted  on  the  surface  of 
the  source  panels  in  an  arbitrary  flow  field.  A  sum  of  the  forces 
and  moment  contributions  due  to  each  ring  of  panels  are  also  com¬ 
puted.  A  listing  of  the  routine  is  presented  in  Figure  C-l(y)  of 
this  report. 

FORMOM  performs  three  DO  loops  in  summing  the  forces  and 
moments.  The  outermost  loop  steps  through  the  number  of  body 
segments  which  in  the  present  use  is  restricted  to  one.  The 
middle  loop  steps  through  the  number  of  rings  in  each 
segment.  The  contribution  of  each  ring  to  the  normal 
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and  side  forces  and  the  three  moments  are  also  saved.  The  con¬ 
tribution  of  each  individual  panel  is  computed  in  the  innermost 
loop  over  the  number  of  panels  in  each  ring.  The  force  contri¬ 
butions  of  each  panel  are  computed  as 


CNORM 

— 

CP  •  A 

acxb 

= 

~CNORM  Sln 

6 

acyb 

= 

“CNORM  COS 

6  sin  G 

aczb 

= 

CNORM  COS 

6  cos  0 

iiCMB 

= 

-aczb(xp  - 

XREF>  + 

acxb 

(zp 

ACNYAW 

= 

-acyb<xp  - 

XREF^  + 

acxb 

Yp 

aclrol 

= 

“aczb  yp  + 

acyb(zp 

-  7  ) 

REF; 

ZREF) 


where  5  is  the  panel  incidence  angle  and  6  is  the  panel  inclina¬ 
tion  angle. 


The  resulting  forces  and  moments  have  the  following  sign  conven¬ 
tions.  Cnqrm  ■‘_s  t*ie  f°rce  normal  to  the  panel,  positive  outward. 
CX0is  positive  aft.  CyQ  is  positive  to  the  right.  CZB  is  posi¬ 
tive  up.  CMB  is  the  moment,  positive  nose  up.  CnyAW  the 
moment,  positive  nose  right  viewing  forward.  C  is  the  moment, 

positive  clockwise  viewed  forward.  The  above  coefficients  are 
dimensional  as  written.  At  the  end  of  the  three  DO  loops,  the 
forces  are  nondimensionalized  by  REFA  and  the  moments  by  REFA*REFD. 

This  routine  is  written  to  handle  both  symmetric  and  non- 
symmetric  geometries.  The  separating  store  is  paneled  on  both 
halves  so  that  the  nonsymmetric  option  is  always  used.  Even 
though  the  store  is  symmetric  geometrically,  the  nonuniform 
velocity  field  produces  a  nonsymmetric  force  distribution.  The 
descriptions  of  the  parameters  in  the  argument  list  follow: 
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XPT , YPT , ZPT 


arrays  of  coordinates  of  control  points  of  panels 
at  which  forces  and  moments  are  assumed  to  act 


THET 

D  E  LTA 

AREA 

CP 

XC 


array  of  inclination  angles  of  panels,  radians 

array  of  incidence  angles  of  panels,  radians 

array  of  panel  areas 

array  of  pressures  acting  on  panel 

array  of  x-values  of  leading  and  trailing  edges 
of  panels 


Called  by: 
SDSTN2 


C-35  Subroutine  FREFSH 

Subroutine  FREFSH  calculates  the  location  at  which  the 
circular  store  nose  shock  reflected  by  either  the  circular  or 
noncircular  fuselage  strikes  the  store  axis  and  the  value  of  BETA 
to  be  used  for  the  image  store.  This  routine  is  used  to  locate 
the  image  store  relative  to  either  the  lint  source  model  or  source 
panel  model  of  the  fuselage.  A  listing  of  the  routine  is 
presented  in  Figure  C  —  1  (y )  of  this  report.  Except  where  indicated 
the  coordinates  used  in  this  routine  are  in  the  store  body  system 
(Figure  17  of  Volume  II).  A  detailed  explanation  of  the 
equations  used  in  calculating  the  image  store  effects  are  given  in 
Section  4.4  of  Reference  2.  Some  of  the  following  quantities  are 
shown  pictorially  in  Figure  C-7. 

The  procedure  used  in  this  routine  to  generate  the  parameters 
necessary  to  locate  and  compute  the  influence  of  the  image  circu¬ 
lar  store  is  developed  as  follows. 
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(1)  Compute  the  location  (Xg^  >  YgN  >  ZgN )  anc!  radial  distance  :  rcjrn 
store  nose  to  fuselage  axis. 


(2)  Using  the  table  of  R  vs  X  in  the  circular  store  coordinate: 
locate  the  intersection  with  either  the  circular  or  non- 
circular  fuselage  surface  (X  ,R  )  in  the  plane  between 

DO  DO 

the  store  nose  and  the  fuselage  axis  and  the  reflection 

-1 


angle  =  tan  (DR/DX)S  +  2  . 


(3)  Locate  store  center  of  gravity  (Y.  ,Z  )  and  del ine 

dCLj  d(_(j  dCCj 

line  through  store  nose  and  C.G. 

(4)  If  reflection  angle  exceeds  store  angle  of  attack,  toilette 
shock  is  assumed  to  miss  store. 

(5)  If  89.5  <0  <  90.5,  intersection  with  store  is  set  to  sh  ,c 

r 

impact  point  on  fuselage. 

(6)  Otherwise  calculate  intersection  point  X  ,R  with  store 

BR  BR 

axis  (note:  f  =  -x  in  Figure  C  —  7 )  . 


(RBN  “  RBS  +  XBN  tan  xut  <  clR/.lX  >  ^  > 


BS 


BR 


(tan  -  (dR/dX)  ) 
f  r 


RBR  RBN  +  tan  af  (XBN  XBR} 


(7)  Compute  distance  from  store  nose  to  intersection  with 
reflection  along  store  axis,  XeD. 

o  K 

(8)  If  Xgp  is  less  than  body  length,  set  indicator  IMFBTR-1,  an 
define  centers  of  image  doublet  and  two  sources  ana  '  s 
associated  with  each. 

5  7 


The  descriptions  of  the  parameters  in  the  argument  list  follow. 

Nr.  number  of  R  versus  X  values  in  shock  shape 

X ,  SR  table  of  X  and  R  defining  shape  of  shock  between 

store  nose  and  fuselage  axis 

Subroutine  references: 

Sa’INT,  SWINTE 

railed  by: 

SFORC E 

C - 3 6  Subroutine  FRSTRT 

Subroutine  FRSTRT  is  used  to  save  or  restore  required  program 
information  for  the  source  paneling  method  to  restart  a  con¬ 
figuration  analysis.  The  routine  is  set  up  to  allow  storage  of 
the  information  from  more  than  one  configuration  on  the  same 
file.  A  listing  of  the  routine  is  presented  in  Figure  C-l(z)  of 
this  report.  Six  options  are  available  based  on  the  information 
to  be  stored  or  retrieved  and  where  the  information  is  to  reside. 
They  and  tile  functions  they  perform  are: 

KODE  DESCRIPTION 

1  saves  control  integers  and  arrays  in  blank  common 

2  restores  control  integers  and  arrays  in  blank  common 

3  saves  above  information  and  AIC ,  U,  V,  and  W 

velocity  matrices 

4  restores  above  information  and  AIC,  U,  V,  and  W 

velocity  matrices 

5  restores  control  integers  and  arrays  stored 

under  either  option  1  or  3  into  starting  core 
location  in  blank  common.  All  arrays  are  copied 


into  blank  common  rather  than  into  original 
labeled  commons 

6  restores  information  in  manner  of  K0DE=5  and  reads 

past  velocity  matrices  stored  under  option  3  tc 
position  file  at  next  record 

The  information  saved  under  K0DE=1  consists  of  ail  the  vatia- 
bles  in  labeled  commons  DIMENS,  PARAM,  80PTNS,  BGEOM ,  HEAD,  and 
BSHOCK,  and  the  first  NTAP7  variables  in  blank  common.  The  later 
set  are  also  saved  on  TAPE7.  If  the  configuration  contains  an 
inlet,  in  addition  the  variables  in  common  BINLET  and  EINSHK  arc- 
saved.  In  copying  the  velocity  matrices  under  KCDE  =  2,  the  array.-; 
are  first  copied  from  TAPE8  or  TAPE9  into  temporary  arrays  in 
blank  common  and  then  onto  the  output  file  10.  The  last  two 
options  are  used  in  Program  II  to  stack  multiple  configuration.- 
end-to-end  in  blank  common.  Provision  has  been  made  for  only  one 
configuration  with  an  inlet.  Variables  from  commons  blNLEI  and 
BINSHK  are  copied  back  into  those  arrays  under  all  KODE  options. 
During  this  data  retrieval  three  indices  used  to  locate  the 
control  variable  arrays  are  saved. 

IDO  (=LASTA+1)  first  location  in  blank  common  of  variables 

contained  in  labeled  commons  DIMENS,  PARAM, 
BOPTNS ,  BGEOM,  and  TITLE  in  order 

ISKO  (=IDO+571)  first  location  in  blank  common  of  variables 

contained  in  labeled  common  BSHOCK 

IA0  (=ISKO+240)  first  location  in  blank  common  of  geometric  and 

strength  arrays  previously  saved  on  TAPE7 

The  descriptions  of  the  parameters  in  the  argument  list  are: 

10  external  file  unit  number  onto  which  the  data 

is  stored  or  retrieved  in  unformatted  form 
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( 

I 

I 

! 

i 

i 

■  i 

i 

I 


i 


i 


KODE  optional  index  selecting  information  to  be  read 

ot  written  to  file  10;  see  above  descriptions 

LASTA  last  location  in  blank  common  currently  defined 

Subroutine  references: 

IOREAD,  IOWRIT 


Call ed  by : 

RDFILE,  STRDAT 


C-37  Subroutine  FXBOD 


Subroutine  FXBOD  sums  the  source  panel  force  and  moment 
distributions  in  the  axial  direction  for  each  of  the  body  sections 
on  an  elliptic  store.  Store  section  boundaries  must  correspond 
to  panel  edges  for  proper  definition  of  forces.  A  listing  of  the 
routine  is  presented  in  Figure  C-l (aa)  of  this  report.  The 
descriptions  of  the  parameters  in  the  argument  list  follow: 


DC  YX 


array  of  dC^/dx  at  center  of  lift  of  Ith  ring  of 
source  panels 


DC  ZX 


array  of  dC^/dx  at  center  of  lift  of  Ith  ring  of 
source  panels 


F  B  OD ( I ,  J )  array  containing  Ith  net  force  or  moment  component 

for  Jth  body  section 


I 

1 

2 

3  4  5 

Net  load 

CY 

CN 

Cp  C  C 

l  m  n 
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IBOD  array  containing  index  x  station  of  trailing  edge  of 

last  ring  number  in  Jth  Dody  section 

NBOD  number  of  body  sections 

Called  by: 

TRJTRY 


C  -38  Subroutine  IMAGEV 

Subroutine  IMAGEV  computes  the  influence  of  the  JBth  ring  of 
source  panels  on  the  image  store  on  the  real  store.  The 
resulting  velocities  normal  to  the  real  store  panels  are  com¬ 
puted  and  subtracted  from  the  boundary  conditions  of  each  panel. 

A  listing  of  the  routine  is  presented  in  Figure  C-l(bb)  of  this 
report. 

The  procedure  used  in  this  routine  follows.  IMAGEV  first 
initializes  the  segment  and  ring  indices  and  sets  the  velocity 
•. *  t  ibut  ion  of  the  ring  to  zero.  The  contribution  of  the  JBth 
:  r,  the  real  store  at  control  point  locations  on  the  image 

•  r>  previously  generated  in  IMAGYZ  are  computed  by  FLDVL2.  The 

•  ■  vim;  computed  for  the  real  store  at  the  image  store  control 

;  i r f  then  transformed  to  velocities  from  the  image  store  at 

•  r  < ■  ,1 1  store  control  points.  The  velocities  are  related  by 

v. w  ,  =  ( v , -w)  ,  .  This  transformation  is 

image  on  real  real  on  image 

•iiiiMned  with  the  resolution  of  the  image  store  induced  velocities 
in  the  image  system  into  the  real  store  coordinate  system.  The 


•G  Lransfu 

rma  t  ion 

i  s 

v  | 

cos  2  : 

j  -sin 

2  ‘ 

z  ‘  I 

V 

w) real 

-sin  2  ; 

j  -cos 

2 '  L 

'•^real  on  image 
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where  *  j  is  the  angle  between  the  real  store  z  axis  and  the 
plane  containing  the  image  and  real  store  longitudinal  axes. 
The  contribution  to  the  boundary  condition  is  modified  using 
the  normal  component  due  to  the  image  store,  V^,  at  the 
influenced  panel  control  point.  For  the  Ith  panel 


V. 

1 


=  V. 
1 


where  is  the  total  normal  velocity  at  the  control  point. 


The  descriptions  of  the  parameters  in  the  argument  list  follow 

GB  array  of  panel  strengths 

VB  array  of  panel  normal  velocities 

IMAGE  logical  indicator  of  influence  of  image  store 

ring  on  real  store 

IMAGE=FALSE,  no  influence  felt  on  real  store 
IMAGE=TRUE ,  ring  has  influenced  real  store 

JG  offset  location  of  end  of  data  for  ring  of  panels 

last  used 

7R  number  of  panels  in  ring  of  influencing  panels 

Subroutine  references: 

FLDVL2 ,  VNORM 

Ca 1 1  ed  by : 

3MARCH 
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C-39  Subroutine  IMAGFN 


Subroutine  IMAGFN  computes  the  influence  of  the  image  store 
body  on  fin  control  points.  The  velocities  are  actually  com¬ 
puted  for  the  real  store  at  image  store  locations  and  trans¬ 
formed  back  onto  real  store  fins.  A  listing  of  the  routine 
is  presented  in  Figure  C-l(bb)  of  this  report. 

The  routine  first  computes  the  fin  control  point  on  the 
image  store  relative  to  the  real  store  elliptic  source  panel 
coordinates  by  the  following  transformations. 


YI 

=  cos 

Y  + 

CPT 

sin 

*1 

ZCPT 

ZI 

=  sin 

Y 

CPT 

cos 

*1 

ZCPT 

and 


IM  =  C°S 

*1 

YI  - 

sin 

♦i 

ZI 

IM  =  Sin 

♦l 

YI  + 

cos 

*1 

ZI 

The  angle  is  the  angle  between  the  real  store  z  axis  and  the 
plane  containing  the  image  and  real  store  longitudinal  axes 
( 4> I  =  cj) -j_M  —  O  in  Section  C-40)  .  The  quantity  Zpp  is  the  distance 
between  the  real  store  nose  and  the  image  store  nose. 

The  slope  of  the  line  from  the  control  point  to  the  real 

store  nose,  6cpT  =  *  +  zim^(XCPT  +  XWLE}  '  iS  comPared  with  the  6 

associated  with  the  first  influence  of  the  image  store  on  the  real 

store.  If  3cpT  <  BN,  the  point  does  not  feel  the  image  store  and 
the  routine  returns.  If  the  image  store  is  felt,  FLDVEL  is  called 
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to  compute  the  source  panel  influence  of  the  body  on  the  fin 
control  point.  The  velocities  are  then  transformed  back  onto 
the  real  store  by: 


UIFIN 

V 

IFIN 


UP 

cos  2  +  j  Vp  -  sin  2<?I  Wp 
-sin  2 v{)  Vp  -  cos  2<J>p  Wp 


The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

XC  PT ,  YC  PT ,  coordinates  of  fin  control  point  in  empennage 
ZCPT  reference  axes 


U  I F  IN ,  VI F  IN ,  U , V, W  component  velocities  at  fin  control  point 
WIFIN  induced  by  image  store  body  in  empennage  reference 

axes 

XWLE  x-station  of  leading  edge  of  empennage  reference  axes 

in  body  coordinates 

Subroutine  references: 

FLDVEL 


Called  by : 
DEMON  2 


C-40  Subroutine  IMAGYZ 


Subroutine  IMAGYZ  generates  a  set  of  control  points  at  the 
image  elliptic  store  location  for  use  in  computing  the  influence 


of  the  image  store  source  panels  on  the  real  store.  The  image 
store  control  points  are  computed  in  the  local  coordinate  system 
attached  to  the  rotating  and  translating  store.  Velocities 
computed  later  are  transformed  to  produce  the  influence  of  the 
image  store  source  panels  on  the  real  store.  1  he  transformation 
used  to  locate  the  image  control  points  are: 

Angle  between  vertical  plane  and  line  bet  we*  n  no  set;  of  teal 
store  and  image  store 


IM 


tan 


(Y 

Tz 


I  MO 

IM'.i 


i'TO 


Distance  between  noses  ol  image  <>u u  r  • 


IP 


=  sin 


( v 

fIM  IMG 


*  I'TO  ^ 


COS 


1M 


’  I  MO  "  ZPTO' 


Location  of  image  of  YpT ,  Zprp  on  image  store  in  a  coordinate  system 
with  origin  at  real  store  nose  and  with  the  z  axis  lying  on  the 
line  connecting  the  store  noses. 

Yi  =  COs(}IM-  *)YPT.  ~  sin(;iM-  ;)ZPT. 

l  1 


=  -sin('lIM-  1)Y 


'PT  . 


-  COS  ( I 


IM 


PT  . 


+  Z 


IP 
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Image  store  point  in  real  store  coordinates 


A  1  istii 
this  report 
list  follow 

YPT , 2PT 

YIM, ZIM 

NBODY 

VAR12 

YIMO, ZIMO 

YPTO,  7.  PTO 

Called  by: 
SFORC 2 


IM. 

l 


cos  (4>im  -  $)  yi  +  sin(<l>IM-  4>)  zi 


IM  =  -sin(4>1M-  $)yi  +  cos((^IM-  $)Zi 

i 


of  this  routine  is  presented  in  Figure  C-l(cc)  of 
The  descriptions  of  the  parameters  in  the  argument 


array  of  Y  and  Z's  of  real  store  control  points 

array  of  Y  and  Z's  computed  for  location  of  image 
store  relative  to  real  store  axes 

number  of  control  points 

4>  (=VAR(12)  )  ,  roll  orientation  of  ejected  store 

coordinates  of  nose  of  image  store  in  fuselage 
axis  system 

coordinates  of  nose  of  real  store  in  fuselage 
axis  system 
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C-41  Subroutine  IMSVEL 


Subroutine  IMSVEL  calculates  the  velocities  induced  by  a 
circular  image  store  at  a  control  point  on  the  real  circular 
store.  A  listing  of  the  subroutine  is  presented  in  Figure  C-l  (cc)  . 
The  equations  programmed  in  this  routine  are  derived  in  Appendix  A 
of  Reference  2. 


The  routine  consists  of  two  DO  loops  followed  by  a  summing  up 
of  the  axial,  radial,  and  tangential  velocity  component  and  a 
resolution  of  the  latter  two  into  the  real  store  coordinate 
system . 

The  first  loop  calculates  the  line  source  induced  velocities 
using  Equation  (A-15)  of  Reference  2.  The  first  source  has  its 
origin  at  the  image  store  nose  and  successive  sources  have  their 
origins  downstream.  A  test  in  the  loop  is  made  to  determine 
whether  a  source  influences  the  field  point.  If  it  does  not, 
a  transfer  out  of  loop  takes  place  since  the  following  sources 
also  cannot  influence  the  field  point. 

The  second  DO  loop  calculates  the  velocities  induced  by  the  two 
sets  of  line  doublets  using  Equations  ( A—  2  4)  and  (A-32)  of 
Reference  2.  The  calculation  is  performed  in  a  manner  identical 
to  that  previously  described  for  the  sources. 

Following  the  second  loop  th°  <x  »  radial,  and  tangential 
velocities  are  summed  up  and  th  i6ttei  two  transformed  to  v 
and  w  velocities  in  the  store  coordinate  system. 


v 


w 


SD 

SD 


V 

RAD 

V 

RAD 


sin8  +  V 

cosQ  -  V 


TAN 

TAN 


COS0 

s  i  n0 


The  descriptions  of  the  parameters  in  the  subroutine  argu 
ment  list  follow: 

NM  number  of  line  sources  or  line  doublets 

XFP  axial  location  of  field  point  relative  to 

image  store  nose 

RFP  radial  location  of  field  point  relative  to 

image  store  longitudinal  axis 

cosQ  and  sin6  where  6  is  the  angle  between 
the  image  store  z  axis  and  the  line 
connecting  the  store  axis  with  the  field 
point 

BETAAL  local  value  of  B  used  in  the  line  source 

cal cul ation 

BETASL  local  value  of  8  used  in  the  line  doublet 

calculation 

USD , VSD , WSD  u,  v,  and  w  velocity  components  in  the  real 
store  coordinate  system  induced  at  a  control 
point  by  the  image  store 

FAC  image  store  doublet  multiplicative  factor: 

FAC  =  1.0  for  wing  image 

0  _<  FAC  _<  1.0  for  circular  fuselage  image  store 
calculated  in  FREFSH 

FAC  =  0  for  circular  fuselage  centerline  image 


C  THETA , 
STHETA 


store 


Subroutine  references: 
SDTRMS 

Called  by : 

SDSTRN 


C-42  Subroutine  INLBET 

Subroutine  INLBET  is  used  to  compute  the  location  of  the  first 
influence  of  the  inlet  shock  at  the  lateral  location  Y,Z.  The 
inlet  shock  axial  location  is  computed  by  table  look-up  in  the 
radial  traverses  generated  in  Program  I.  The  interpolation 
procedure  follows  the  sequence  outlined  in  Section  A-20  of 
Volume  III.  A  listing  of  the  routine  is  presented  in  Figure 
C-l  (cc)  . 

In  computing  the  shock  location  relative  to  the  inlet,  INLBET 
makes  four  assumptions.  First,  below  the  inlet,  all  traverses 
are  computed  along  constant  Y-values  (;=0)  as  shown  in  the  sketch 
in  Section  A-20  of  Volume  III.  All  interpolations  are  made 
linearly  between  values  of  Y.  Second,  traverses  are  computed 
along  constant  $  lines  originating  from  the  inlet  outboard  leading- 
edge  XINLT, YINLT, ZINLT.  All  interpolations  are  made  at  a  given 
value  of  R  linearly  in  angle  Third,  lateral  coordinates  above 

the  inlet  use  only  the  linear  theory  free-stream  value  of  to 
compute  the  shock  location.  Fourth,  all  calculations  are  symmetric 
about  the  fuselage  centerline. 

Three  parameters  are  computed,  the  radial  and  axial 
locations,  RS  and  XS ,  and  .  The  procedure  used  to  compute  the 

inlet  shock  parameters  is  as  follows.  The  Y,Z  point  is  first 
located  on  the  positive  side  of  the  symmetric  configuration  and 
then  in  the  appropriate  region  as  shown  in  the  sketch  in  Section 
A-20.  In  the  first  region  below  the  inlet,  traverses  are  computed 


0  9 


I 

I 


in  a  vertical  plane.  If  only  one  radial  traverse  has  been 
computed,  the  shock  shape  is  assumed  constant  in  the  region  under 
the  fuselage  and  inlet.  If  more  than  one  radial  traverse  has  been 
generated  to  define  the  shock  shape  under  the  inlet,  the  axial 
shock  location  is  computed  at  the  distance  RS=|Z-ZINLT|  below  the 
inlet  along  adjacent  traverses  in  XVSR.  The  local  value  of  XS  is 
then  computed  by  linear  interpolation  between  values  of  Y.  If  the 
Y-value  is  less  than  YCPI,  the  inner  edge  of  the  inlet,  the  radial 
shock  distance,  RS ,  is  computed  to  reflect  the  first  influence  of 
an  inlet  panel. 


RS  =  /(Z-ZINLT) 2  +  (  | Y  j -YINLT)  2 

In  the  second  region  outboard  of  the  inlet  and  under  the  wing, 
the  polar  location  is  found  between  the  two  closest  traverses 
generated  radially  from  the  inlet  corner,  XINLT , YINLT , Z INLT .  The 
axial  location  is  computed  for  each  polar  traverse  in  XVSR.  The 
local  shock  location  is  then  computed  by  linear  interpolation  in 
polar  angle,  <p  .  The  parameter  SIg  is  computed  as  BIS  =  XS/RS. 

For  the  remainder  of  the  flow  field.  Region  III  (see  sketch 
in  Section  A-20),  the  shock  location  and  BIg  are  generated  from 
free  stream  values.  The  shock  location  is  thus  set  to  XS  =  B^RS. 
In  each  of  the  regions,  the  computed  shock  shape  is  assumed  to 
contain  any  angle  of  attack  corrections  and  no  further  rotations 
are  performed  at  this  point. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

BETAI  3  ,  Mach  number  parameter  for  first  influence  of 

inlet  panels  at  Y,Z 


XS 


axial  location  of  inlet  shock  at  location  Y,Z 


RS  radial  distance  from  closest  inlet  to  point  Y,Z 

For  Y  YCPI,  distance  in  plane  of  traverse 
For  Y  <  YCPI,  distance  from  inlet  inboard  leading 
edge 

Y,Z  lateral  location  of  point  at  which  inlet  shock 

is  computed 


C-43  Function  INLTST 

Logical  function  INLTST  determines  whether  the  panel  index  in 
the  argument  is  for  an  inlet  panel.  The  value  of  the  function  is 
set  to  TRUE  if  the  index  is  for  an  inlet  panel  and  FALSE  if  it  is 
not.  In  addition  the  logical  variable  OPEN  is  set  to  indicate 
whether  the  inlet  panel  is  blocked  or  unblocked  to  flow.  Three 
conditions  are  tested  for.  If  no  inlet  panels  exist  INLTST  and 
OPEN  are  set  false.  If  an  inlet  panel  exists  the  index  I  is 
compared  to  the  table  of  possible  inlet  panel  numbers,  JINLT.  If 
I  is  equal  to  one  of  the  inlet  panel  numbers  INLTST  is  set  true. 

If  I  is  not  an  inlet  panel  number  INLTST  is  set  false.  If  I  falls 
in  the  subset  of  JINLT  of  unblocked  panels,  OPEN  is  true; 
otherwise  OPEN  is  set  false.  A  listing  of  this  routine  is 
presented  in  Figure  C  —  1  ( dd )  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

panel  number  index  to  be  compared  with  table  of 
possible  inlet  panel  numbers,  JINLT 
logical  variable  indicating  whither  an  inlet  panel 
is  open  or  blocked.  OPEN  is  TRUE  if  panel  allows 
unblocked  flow  through  panel 

Called  by: 

FLDVL2 


I 

OPEN 
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C-44  Subroutine  INTOST 


Subroutine  INTOST  (see  Figure  C-l(dd)  for  a  listing)  takes  a 
vector  with  components  specified  in  the  inertial  >'  ,  r, ,  ;  coordi¬ 
nate  system  directions  and  transforms  it  into  a  vector  with 
components  in  the  store  x,y,z  coordinate  system  directions, 
see  Figure  21  of  Reference  1.  That  :  s 


The  matrix  [A]  1  is  the  transpose  of  the  direction  cosine  matrix 
given  by  Equation  (B-2)  of  Appendix  B  of  Reference  2.  The  trans¬ 
pose  is  equal  to  the  inverse  since  [A]  is  orthogonal.  The 
matrix  [A]  is  either  calculated  in  subroutine  DIRCOS  for  the 
separating  store  or  in  RESVEL  for  fixed  stores. 

In  terms  of  the  above  notation,  the  quantities  in  the  param¬ 
eter  list  of  the  subroutine  are: 

XI 
ETA 
ZETA 
X 
Y 
Z 

DC 

Called  by : 

VXYZ  ,  SFORCE,  SEMFOR,  SF0RC2,  DEM0N2 ,  EJECTR,  RESVEL 


C-45  Subroutine  INVER 2 


Subroutine  INVER2  solves  the  system  of  simultaneous  linear 
algebraic  equations. 

[  A  ]  X  =  B 

This  routine  performs  pivot  searching  during  the  solution  of  the 
general  matrix,  A.  The  right  hand  side  is  passed  into  INVER2  as 
the  N+l'st  column  in  the  matrix.  The  solution,  X,  also  returns 
in  that  location.  A  listing  of  this  routine  is  presented  in 
Figure  C-l  (dd)  ot  this  report.  The  routine  is  currently  limited  to 
6  equations  by  internal  dimensions.  The  descriptions  of  the 
parameters  in  the  argument  list  follow: 

A  coefficients  of  linear  system  of  equations  in  first 

N  columns;  columns  N+l  through  N+NSYS  contain 
multiple  right-hand  sides,  B,  on  input  and 
solutions,  X,  on  return 
NSYS  number  of  right  hand  sides 

N  actual  number  of  equations 

NMAX  first  dimension  of  A 

MMAX  second  dimension  of  A 

If  the  coefficient  matrix  is  found  to  be  singular  an  error 
message  is  printed  out  (see  Section  4.4  of  Volume  II)  and  the 
program  stops. 

Called  by: 

TRJTRY 
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C-46  Subroutine  IOREAD 

Subroutine  IOREAD  performs  an  unformatted  read  from  external 
file,  10.  NA  consecutive  elements  of  array,  A,  are  read 
sequentially.  This  routine  is  used  to  specify  a  common 
interface  to  external  files.  A  listing  of  this  routine  is 
presented  in  Figure  C-l  (ee)  of  this  report.  The  descriptions  of 
the  parameters  in  the  argument  list  follow; 

10  external  file  reference  number 

A  array  of  numbers  to  be  read 

NA  number  of  element  of  A  to  be  read 

A  machine  dependent  version  of  IOREAD  is  available  for  CDC 
machines  using  asynchronous  input  routine  BUFFER  IN. 

Called  by: 

EGMRST ,  FRSTRT ,  SFORC  2,  SMARCH,  SOLVUV,  DEMON 2 ,  TRJTRY,  FLDUVW 

C-47  Subroutine  IOWRIT 

Subroutine  IOWRIT  performs  an  unformatted  write  to  external 
file,  10.  NA  consecutive  elements  of  array,  A,  are  written 
sequentially.  This  routine  is  used  as  a  common  interface  to 
external  files.  A  listing  of  this  routine  is  presented  in 
Figure  C-l(ee)  of  this  report.  The  descriptions  of  the  parameters 
in  the  argument  list  follow: 

10  e>  ernal  file  reference  number 

A  array  of  numbers  to  be  written 

NA  number  of  element  of  A  to  be  written 


A  machine  dependent  version  of  IOWRIT  is  available  for  CDC 
machines  using  asynchronous  output  routine  BUFFER  OUT. 


i 


Called  by: 

EGMSAV,  FRSTRT,  STRDAT,  FLDAC2,  CRFWBD ,  DEM0N2 

C-48  Subroutine  IXBOD 

Subroutine  IXBOD  scans  the  elliptic  store  geometry  to  locate 
and  define  leading  and  trailing  edges  of  body-fin  sections  and  the 
elliptic  body  axes  for  the  interference  shell.  This  routine  uses 
the  parameters  provided  in  input  item  16  of  Program  II  to  search 
the  geometry  arrays  passed  from  Program  I.  The  indices  of  the 
panels  bounding  each  of  the  body  alone  and  finned-body  sections 
are  first  determined.  For  each  finned  section  the  leading  edge 
and  the  maximum  vertical  and  horizontal  elliptic  semi-axes  are 


determined.  The  program  logic  is  limited  to  handling  one  body 
segment  at  a  time.  A  listing  of  the  routine  is  presented  in 
Figure  C-l(ee).  The  descriptions  of  the  parameters  in  the 

argument  list  follow: 

XBCD (I) 

trailing  edges  of  Ith  body  section;  see  input 

item  16 

IBOD(I) 

ring  index  computed  for  Ith  body  section 

NBOD 

number  of  body  sections;  see  input  item  16 

LFIN  (I) 

logical  section  type  indicator  of  Ith  section; 

see  input  item  16 

XWLE1 

axial  station  of  first  finned-body  section 

leading  edge 

XWLE2 

axial  station  of  second  finned-body  section 
leading  edge 

RA1 

maximum  vertical  semi-axis  of  first  finned- 

body  section 
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RA2 


maximum  vertical  semi-axis  of  second  finned- 
body  section 


RBI  maximum  horizontal  semi-axis  of  first  finned- 

body  section 

RB2  maximum  horizontal  semi-axis  of  second  finned- 

body  section 

Called  by: 

TRJTRY 

C-49  Subroutine  LAYBIP 

Subroutine  LAYBIP  lays  out  and  determines  the  geometrical 
properties  of  the  constant  u-velocity  panels  on  the  elliptic 
store  body  where  mutual  interference  occurs.  This  routine 
uses  the  meridional  angles  specified  in  Program  I  for  the 
elliptic  body  to  determine  the  panel  edges  for  the  u-veocity 
panels.  It  guarantees  that  the  interference  shell  panel  lay 
out  matches  the  same  meridional  spacing  as  the  source  panels. 

The  routine  performs  an  outer  loop  over  the  number  of  panels 
around  the  circumference  and  an  inner  loop  over  the  number  of 
panels  axially.  The  geometric  panel  properties  are  stored  in 
the  arrays  in  labeled  common  ONE  (see  descriptions  in  Section  D-2 
of  Appendix  D) .  A  listing  of  the  routine  is  presented  in 
Figure  C-l(ff)  of  this  report.  A  description  of  the  param¬ 
eter  in  the  argument  list  follows: 

NBDCR  number  of  panels  around  the  circumference  of  the 

interference  shell.  See  input  item  18  of  Program  II. 

Called  by: 

CRFWBD 


050  Subroutine  LAYOUT 

Subroutine  LAYOUT  lays  out  and  determines  the  geometrical 
properties  of  the  constant  u-velocity  panels  on  a  single  fin 
surface.  The  fin  external  shape  may  be  trapezoidal  or 
may  have  multiple  breaks  in  leading  and  trailing  edge  sweep 
angles.  A  listing  of  the  routine  is  presented  in  Figure  C-l(ff) 
of  this  report.  This  routine  is  adapted  from  the  work  of 
Reference  5  and  specialized  to  fins  only.  The  output  variables 
from  this  routine  are  stored  in  labeled  common  ONE,  and  are 
defined  in  Section  D-2  of  Appendix  D. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 

SLPWLE  fin  leading  edge  sweep  for  trapezoidal  planform 

description 

SLPWTE  fin  trailing  edge  sweep  for  trapezoidal  planform 

description 

Y(I)  Y  stations  of  parameters  of  variable  sweep 

description 

MSWP  number  of  spanwise  panels  to  be  laid  out  on  fin 

CRP  fin  root  chord 

NS  fin  quadrant  indicator 

NS=1,  right  or  upper  right  interd ig i tated  fin 
NS=2 ,  left  or  lower  left  i n te rd ig i ta ted  fin 
NS=3,  upper  or  lower  right  inte rd ig i ta ted  fin 
NS=4 ,  lower  or  upper  left  interd ig i tated  fin 


■ 
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C  TP 


panel  tip  chord 


PHI  dihedral  angle  of  panel;  measured  counterclockwise 

from  positive  Y-axis 

THET  meridional  angle  of  intersection  of  fin  with  body; 

counterclockwi se  from  positive  Y-axis 


Called  by: 
CRFWBD 


C-51  Subroutine  LOADS 

Subroutine  LOADS  calculates  the  forces  and  moments  on  the 
elliptic  store  fins  and  the  interference  shell.  The  panel  forces 
are  first  computed  in  the  panel  coordinate  system  and  then 
transformed  to  the  empennage  system.  A  listing  of  the  routine  is 
presented  in  Figure  C-l  (hh)  of  this  report. 

The  descriptions  of  the  equations  used  to  compute  the  forces 
and  moments  for  interdig itated  and  cruciform  fins  are  presented  in 
Appendix  F  of  Reference  5.  The  method  has  been  generalized,  here, 
to  handle  other  fin  arrangements.  The  descriptions  of  the  normal 
force  calculation  for  the  elliptic  body  is  similarly  presented  in 
Section  4.2  of  the  same  reference.  All  forces  are  normalized  by 
the  reference  area.  All  moments  are  normalized  by  both  the 
reference  area  and  reference  length.  The  sense  of  the  resulting 
coefficients  are  as  follows: 

Cy  acts  along  empennage  system  Y-axis,  positive  to  the  right 

C  acts  along  empennage  system  Z-axis,  positive  up 

Li 

C  moment  about  empennage  system  Y-axis,  positive  nose  up 

m  viewed  from  the  rear 
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C  moment  about  empennage  system  Z-axis,  positive  nose  to 
right  viewed  from  the  rear 

moment  about  empennage  system  X-axis,  positive  clockwise 
viewed  from  the  rear 

The  description  of  the  parameter  in  the  argument  list  is: 

HEAD  alphanumeric  heading;  see  input  item  13 

Subroutine  references: 

ROTBW,  ROTFW,  SPNLD 

Called  by: 

SPEC  PR 

C -52  Subroutine  NUMACH 

Subroutine  NUMACH  determines  the  local  Mach  numbers  at  the  wing 
leading  and  trailing  edges  at  a  given  field  point  lateral  and 
vertical  position  relative  to  the  wing.  The  calculations  are 
performed  for  wing  thickness  only.  After  the  Mach  numbers  are 
determined  the  calculations  are  repeated  using  these  Mach  numbers 
to  determine  the  leading  and  trailing  edge  influence  locations. 

The  method  used  is  described  in  Section  4.3  of  Reference  2.  A 
listing  of  the  program  is  presented  in  Figure  C-l(ii)  and  a  flow 
chart  in  Figure  C-8  of  this  report. 

At  the  beginning  of  the  subroutine  a  test  is  performed  to 
determine  if  the  specified  zw  location  (Z)  is  below  the  wing. 

If  not,  an  error  message  is  printed  (see  Section  4.4  of  Volume  II) 
and  the  program  stops. 

Next,  the  subroutine  calculates  the  local  wing  chord,  CHRD, 
at  the  specified  y^  location  (Y).  Quantities  previously  deter¬ 
mined  by  subroutine  WLYOUT  in  Volume  III  are  used  in  this 
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calculation.  As  shown  in  the  flow  chart,  if  the  field  point  is 
below  the  fuselage,  CURD  equals  the  wing  root-chord;  outboard  of 
the  wing  tip  CHRD  equals  the  tip-chord. 

After  initializing  certain  control  variables,  the  subroutine 

next  begins  the  calculation  of  an  x  traverse  aft  of  x  =0.  At 

w 

each  point  the  velocity  due  to  wing  thickness  is  calculated 
(subroutine  VELWT2) .  The  point,  XSAVE,  at  which  wing  thickness 
induces  the  maximum  turning  angle,  £v,  is  determined  using  an 
x-interval  size,  DELX1 ,  equal  to  one-hundredth  CHRD.  The  search 
is  refined  by  backing  up  to  XSAVE-DELXI  and  repeating  the 
calculations  using  DELX1  equal  to  one-tenth  the  previous  interval 
size.  Once  the  point  in  the  traverse  is  isolated  (XT3,Y,Z)  at 
which  the  turning  angle  is  a  maximum,  the  local  Mach  number,  M^, 
(FMXT3) ,  specified  by  Equations  (44) ,  (45) ,  (46) ,  and  (61)  of 

Reference  2  is  computed  from  the  velocity  components. 

The  search  for  XT3  described  above  is  next  repeated  with 
velocity  calculations  based  on  M^  (specified  when  INUMCH=1). 

The  new  value  of  XT3  defines  the  beginning  of  the  range  of  influ¬ 
ence  associated  with  the  wing  thickness  panels.  The  remainder  of 
the  subroutine  performs  a  similar  calculation  to  determine  the  local 
Mach  number  and  location  associated  with  the  wing-thickness  trail- 
ing-edge  influence.  The  search  starts  at  seven-tenths  of  the  local 
wing  chord.  The  notation  for  the  Mach  number  and  the  trailing  edge 
influence  location  are  FMXT4  and  XT4,  respectively. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

Y,Z  coordinates  of  field  point  in  wing  coordinate 

system 

Subroutine  references: 


VELWT2 


Called  by: 


SFORCE,  SF0RC2 


C-53  Subroutine  PANVEL 

Subroutine  PANVEL  organizes  the  calls  to  SORPAN  for  the  calcu¬ 
lation  of  the  influence  of  a  source  panel  at  a  field  point.  This 
routine  computes  the  transformations  and  rotations  necessary  to 
calculate  the  influence  of  an  arbitrarily  oriented  panel  at 
either  a  field  point  or  at  the  control  point  of  another 
arbitrarily  oriented  panel.  A  listing  of  the  routine  is 
presented  in  Figure  C-l(kk)  of  this  report. 

The  routine  first  computes  the  combined  transformations  to 
rotate  a  panel  or  its  image  into  the  local  panel  system  and  back. 
If  the  same  tr ansfo rmation  is  to  be  used  for  a  number  of  calcu¬ 
lations  the  logical  variable,  LZERO,  is  used  to  skip  around  this 
code  in  subsequent  calls.  The  field  point  in  question  is  rotated 
into  the  panel  coordinate  system  and  a  call  made  to  SORPAN  to 
compute  the  influence  coefficient.  If  the  body  is  symmetric 
(IXZSYM=0)  the  above  calculations  are  repeated  for  the  symmetric 
panel  on  the  opposing  side  of  the  X-Z  plane.  The  influence  is 
summed  and  rotated  back  into  the  original  body  coordinate  system. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

UB,VB,WB  component  velocity  influence  coefficients  in  body 

coordinate  system  at  field  point 
AN  normal  velocity  influence  coefficient  of  a  panel 

at  another  arbitrarily  oriented  panel  control  point; 
set  equal  to  WB  for  a  field  point 
IXZSYM  body  X-Z  plane  symmetry  option 

Subroutine  r<  ferences: 


SORPAN 


Called  by: 

FLDAC2,  FLDVL2 

C-54  Subroutine  PAS001 

Subroutine  PAS001  performs  the  [L*U]  decomposi tion  of  the 
positive  definite  matrix,  A.  This  routine  performs  no  pivot 
search  during  decomposition.  It  does  skip  unnecessary  calcula¬ 
tions  associated  with  off-diagonal  zeroes.  An  error  return  is 
provided  for  encountering  zero  values  on  the  diagonal.  The 
decomposition  procedure  is  equivalent  to 


The  decomposed  matrix  is  stored  in  the  location  of  the  original 
matrix.  A  listing  of  the  routine  is  presented  in  Figure  C-l(kk)  of 
this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

A  positive  definite  matrix  with  nonzero  diagonal 

elements 

N  actual  size  of  matrix,  A 

NER  diagnostic.  If  NER  greater  than  zero,  decomposition 

failed  because  |A(NER,NER)|  <  1C)”20 
ND  dimensioned  size  of  A 


Called  by: 
CRFWBD 


C-55  Subroutine  PAS002 


Subroutine  PAS002  solves  the  system  of  equations  [L*U]  *  X  = 

B  by  forward  and  backward  substitution.  It  is  assumed  that 
matrix,  A,  has  been  decomposed  by  routine  PAS001  or  equivalent  so 
that  A  contains  [L*U].  A  listing  of  the  routine  is  presented  in 
Figure  C-l(ll)  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 


A 

B 

N 

NB 

NDA 

NDB 


coefficient  matrix  containing  [L*U] 
matrix  containing  right-hand  sides  of  the  linear 
system  [L*U]  *  X  =  B.  Contains  X  on  output 

actual  size  of  [L*U]  matrix  contained  in  A 
number  of  right-hand  side  vectors  contained  in 
the  first  NB  columns  of  B 
dimensioned  size  of  A 
dimensioned  size  of  B 


Called  by: 

DEM0N2 ,  SMARCH 


C-56  Subroutine  PITROL 

Subroutine  PITROL  computes  the  crossflow  components  of 
velocity  due  to  an  elliptic  body  subjected  to  a  nonuniform  flow 
field  vAy(x)»  WAV(x)  at  t*ie  centerline>  The  routine  first 
interpolates  in  the  table  of  average  nonuniform  flow  field 
velocities  versus  axial  station  to  find  the  local  flow  the  body  is 
subjected  to.  Following  this  the  velocities  at  field  point  X,Y 
are  computed.  The  equations  and  transformation  in  the  complex 
plane  used  to  compute  the  crossflow  components  are  described  in 
Section  6  of  Appendix  I  of  Reference  5.  A  listing  of  the  routine 
is  presented  in  Figure  C  —  1  (11)  of  this  report.  The  descriptions 
of  the  parameters  in  the  argument  list  follow: 
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XLOC 


axial  station  in  source  panel  coordinate  system  of 
cross  section 


VXAV , WXA V  average  nonuniform  flow  field  velocity  components 

at  cross  section 

X,Y  lateral  coordinates  (Y,Z  in  body  coordinates)  of 

point  at  which  cross  flow  velocities  are  computed 

VS,WS  crossflow  velocity  components  at  X,Y 

Subroutine  references: 

DSDZ  ,  Z 

Called  by: 

F 


C- 57  Subroutine  PRESS 

Subroutine  PRESS  computes  the  source  panel  pressure  coeffi¬ 
cient  using  the  exact  Bernoulli  pressure  formula.  The  pressure 
coefficient  is  limited  by  the  vacuum  pressure  coefficient, 

Cp  =  -p„,/qM.  Given  the  u,v,w  velocities  at  each  source  panel 
control  point,  the  routine  performs  a  single  loop  over  the 
number  of  panels  to  compute  pressure  coefficients.  A  listing  of 
the  routine  is  presented  in  Figure  C-l(ll)  of  this  report.  The 
descriptions  of  the  parameters  in  the  argument  list  follow: 

NBODY  number  of  source  panels 

U , V , W  arrays  containing  the  velocity  components  in  the 

body  fixed  coordinate  system  used  with  the  source 
panels 


CPP 


array  containing  computed  pressure  coefficients 


CPS  TAG 


limiting  stagnation  pressure  coefficient 


CPCRIT  critical  pressure  coefficient 

CPVAC  vacuum  pressure  coefficient 

Called  by: 

SDSTN2 


C - 5 8  Subroutine  RDFILE 

Subroutine  RDFILE  reads  the  file  produced  by  Program  I  which 
contains  all  of  the  data  read  into  Program  I  or  computed  in  that 
program  which  is  used  by  Program  II.  This  routine  reads  the 
information  written  on  TAPE  1 2  in  Program  I  into  tne  appropriate 
arrays  in  this  program.  When  reading  the  arrays  generated  for  the 
noncircular  configurations,  all  data  for  the  fuselage  are  copied 
onto  TAPE 1 1 .  Similarly  all  data  for  the  elliptic  stores  are 
copied  onto  TAPE10.  The  data  are  stored  there  until  such  time  as 
the  separating  store  has  been  specified.  A  listing  of  the  routine 
is  presented  in  Figure  C-l(mm)  of  this  report.  The  arrays  into 
which  the  data  is  read  by  this  routine  are  described  in  Section  D- 
of  Appendix  D  for  the  appropriate  labeled  common  blocks. 

Subroutine  references: 

"RSTRT 

Called  by : 

TRJTRY 


C-S9  Subroutine  REFSHK 

Subroutine  REFSHK  calculates  the  location  at  which  the 
circular  store  nose  shock  which  is  reflected  by  the  wing  strikes 
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the  store  and  the  value  of  B  to  be  used  fo  r  '.lx  image  store. 

The  equations  used  to  compute  the  reflected  shock  influence  on 
the  circular  store  are  described  in  Section  4.4.1  of  Reference  2. 
A  listing  of  the  routine  is  presented  in  Figure  C-l(mm)  of  this 
report. 

The  steps  used  in  this  routine  to  compute  the  reflected  shock 
location  are  as  follows: 


1.  Calculate  store  nose  location  in  inertial  (fuselage)  system 

'^B  ,ZB  ^ 
n  n  n 

2.  Calculate  store  nose  location  in  wing  system  (x  , 

y  ,z  )  n 

Jw  w 
n  n 

3.  Assume  longitudinal  axis  of  store  shock  wave  is  parallel 

to  wing  root  chord  and  calculate  x  ,  ,  at  r  =  z 

^  shock  w 

n 

4.  Locate  shock  intersection  point  in  wing  system 

(V'y»  -zw  1 

s  s  s 


5.  Calculate  local  x^^  and  x„  at  y 

le  wte  s 

6.  If  xw  is  between  xw^e  and  Xwte  integrate  wing  thickness  slope 
distribution  up  to  xWg  to  get  wing  half  thickness  at  this 
point,  t/2 


r(x  -  x  )  *1 
w£e  ws 


t 

2 


w 


-  X 


NCWS  +  1 


ie 


w 


te 


NCWS 


r  ,dz. 

L  dx  n 
n=l 


Calculate  xshock 

system  (x*  ,y*  ,z*  ) 
s  s  s 


at  r  =  zu  -  t/2  and  locate  in  wing 
wn 


8.  Calculate  shock  angle  at  x 


w. 


tan 


-1  Ar 


Ax 


from  shock  shape  table 


9.  Determine  thickness  slope  at  x 


w 


„  .  '1  /dz> 

0t  =  tan  Wn 


n  = 


-  x 


le 


w 


iSe  " 


te 


NCWS  +  1 


10.  Determine  shock  reflection  angle 


9r  '  0s  +  26t 


/ 
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11 


Locate 


store 


w 


eg 


1  w 


eg 


w 


eg 


c  .g .  in 
VAR ( 7 ) 

n 

VAR  ( 9 ) 


wing  system  assuming 
-  XBWOC 


-  ZB  WO 


12.  Determine  intersection  of  reflected  shock  wave  and 
line  from  store  nose  through  c.g. 


t/2 


a 


tan 


-1 


If  6r  <  a  there  is  no  intersection.  For  0r  >  a,  the-  inter 
section  of  the  reflected  shock  with  store  axis  is  determined 
from  the  intersection  of  the  following  two  equations. 


r 


Equation  of  reflected  shock 


+  tan  0 

r 


) 


Equation  of  store  axis 


w 


+  tan  a  (x 


n 


w„ 


n 


) 


After  subtracting  the  two  equations,  the  point  at  which  the 
reflected  shock  intersects  the  store  axis  is 


' _ 1 

tana  -  tan 0 

r 


x  ,  tana 
w 


xwstan6r 


w 


+  tan  a  (x, 


n 


w 


n 


) 


If  0r  =  90° 


13.  Calculate  distance  from  nose  measured  along  store  axis  to 
reflected  shock 


|x_  =  -(x„  =  x  )cos  a  +  (z  -  z  ) sin  a 

V  wr  wn  ws  wn 


If  |xSr|  is  greater  than  store  length,  there  is  no  intersection. 
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The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

NS  number  of  values  in  shock  shape  table 

SX , SR  arrays  containing  the  tabulated  values  of  X  and  R 

describing  the  shape  of  the  shock  striking  the 
wing,  including  any  rotation  with  store  angle  of 
attack 

Subroutine  references: 

STTOIN 

Called  by: 

SFORCE 

C-60  Subroutine  RESVEL 

Subroutine  RESVEL,  along  with  the  other  subroutines  which 
it  calls,  calculates  the  perturbation  velocities,  as  described 
in  Section  5  of  Reference  2,  in  the  inertial  coordinate  system 
at  a  specified  field  point  due  to  all  aircraft  components  other 
than  the  separated  store  and  its  image.  A  listing  of  the 
routine  is  presented  in  Figure  C-l(nn)  and  a  flow  chart  in 
Figure  C-9  of  this  report.  The  descriptions  of  the  variables 
used  by  this  routine  which  are  in  labeled  common  are  found  under 
the  descriptions  of  common  variables  in  Section  D-2  of  Appendix  D. 

The  velocity  contributions  of  each  of  the  parent  aircraft 
components  are  computed  in  order.  The  B's  used  by  each  of  the 
components  are  assumed  to  have  previously  been  computed  by  SFORCE 


or  3FORC2  and  BVARIA.  The  influence  of  the  fuselage  is  computed 
first.  If  a  circular  fuselage  is  present,  NFU=1,  velocities 
induced  by  the  source  and  doublet  distributions  are  calculated 
using  subroutine  VELCAL.  If  the  noncircular  fuselage  is  present, 
NFU=2,  the  influence  of  the  source  panels  is  computed  in  routine 
FLDVEL.  If  a  ramp  inlet  is  present  on  the  noncircular  fuselage, 
the  fixed  point  is  checked  to  determine  whether  it  is  in  the 
influence  of  the  inlet  shock.  Figure  C-10  shows  a  typical  shock 
region  of  influence  beneath  the  inlet  for  partially  blocked  flow 
with  a  mass  flow  ratio  of  about  0.4.  The  inlet  shock  influence  is 
assumed  to  be  felt  between  the  two  lines  represented  as  BjS  for  the 
inlet  shock  location  and  for  the  inlet  shoulder  or  aft  end  of 
the  inlet  influence.  For  the  radial  location  of  each  field 
point,  the  axial  location,  XIS,  and  the  corresponding  6IS  of  the 
inlet  shock  are  computed  in  routine  INLBET.  If  XIS  is  less  than 
XBTINL,  the  point  is  considered  in  Region  I.  If  the  point  lies 
forward  of  XIS  or  aft  of  XISHLD,  the  8  computed  from  the  fuselage 
nose  shock  in  BVARIA  is  used  and  the  velocities  computed  in  FLDVEL. 
If  the  point  lies  between  XIS  and  XISHLD,  XMAP  is  set  to  -XB  and 


6 


max 


[  XIS  -  XCLSD 
[RIS  -  RCLOSD 


If  XIS  is  greater  than  or  equal  to  XBTINL,  the  point  is 
considered  in  Region  II.  If  the  point  is  outside  the  inlet 
influence,  velocities  are  computed  as  before.  If  the  point  lies 
between  XBTINL  and  XISHLD,  the  points  between  XIS  and  XISHLD  must 
be  mapped  to  an  equal  position  between  XBTINL  and  XISHLD.  Tnis  is 
necessary  to  match  the  first  influence  from  the  panels  on  the 
inlet  face  propagating  along  the  8j  line.  Thus  XMAP  and  8  are  set 
to  the  following  and  velocities  computed  in  FLDVEL. 


XMAP  =  XINLT+XISHLD-DX*DXBT/DXS 


and 

6-  +  (rXisS  -ifd Mo  -  e-j  si]'  XBP  >  XIS 

0  =< 

BTINLT  ,  XBP  i  XIS 

To  compute  the  interference  shell  influence,  the  point  is 
translated  into  the  wing  coordinate  system,  and  any  induced 
velocities  computed  by  VELBD2.  Next,  the  wing  constant  u-velocity 
panel  and  thickness  panel  velocities  are  calculated  using 
subroutines  VELWP2  and  VELWT2,  respectively.  If  a  pylon  is 
present,  NPY=1,  the  pylon  velocities  are  calculated  by  calling 
VELPP2  for  constant  u-velocity  panels  and  VELPT2  for  thickness 
panels.  If  a  rack  is  present,  NRACK=1,  the  nose  of  the  rack  is 
located  relative  to  the  fuselage  and  any  induced  velocities 
computed  in  VELCAL. 

If  additional  stores  are  present,  NSTRS  greater  than  one,  the 
induced  influence  is  computed  by  first  locating  the  point  relative 
to  the  fixed  store  body  coordinate  system  and  calculating  velocity 
contributions.  If  the  fixed  store  is  circular,  NSHAPE(J)  less 
than  51,  the  velocities  are  computed  by  VELCAL.  If  the  fixed 
store  is  elliptic,  NSHAPE(J)  greater  than  50,  the  velocities  are 
computed  in  FLDVEL.  The  velocities  computed  in  the  local  store 
coordinates  must  then  be  rotated  back  into  the  inertial  system  and 
added  to  the  other  components. 

The  descriptions  of  the  parameters  in  the  argument  list 
follow: 
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XB , YB , ZB  coordinates  in  inertial  system  of  point  at  which 

velocity  field  is  to  be  calculated 

UTU , VTV, WTW  sum  of  u/V^,  v/V„ ,  w/Vw  perturbation  velocities 

due  to  parent  aircraft  in  inertial  coordinate  system 

Subroutine  references: 

FLDVEL,  INLBET,  VELBD2,  VELCAL,  VELPP2,  VELPT2,  VELWP2,  VELWT2, 
INTOST,  STTOIN 

Called  by: 

SFORCE,  SEMFOR,  SF0RC2,  DEM0N2 

C-61  Subroutine  ROTBW 

Subroutine  ROTBW  transforms  velocities  from  the  body  inter¬ 
ference  panel  coordinate  system  to  the  empennage  coordinate  system. 
The  transformation  performed  is: 

Yq  =  Y^  cos  02  +  sin  02 
ZQ  =  -Yi  sin  02  +  Z±  cos  @2 

where  02  is  angle  of  the  panel  normal  measured  from  the  vertical. 

It  is  shown  in  Figure  18  of  Reference  1  depicted  as  92  BIp.  A 
listing  of  the  routine  is  presented  in  Figure  C-l (pp)  of  this 
report.  The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

YI ,  Z I  input  lateral  and  vertical  velocity  components  in  body 

interference  panel  coordinate  system  to  be  transformed 

YO, ZO  output  transformed  velocities  in  empennage 

coordinates 

I  index  of  body  interference  panel  number 
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Called  by: 

VELNOR,  LOADS 


C-62  Subroutine  ROTFW 

Subroutine  ROTFW  transforms  velocities  from  the  local  fin 


coordinate  system  to  the 

transformation  performed 

empennage 

is : 

reference 

coordinate  system.  The 

Y  =  Y 

OUT  IN 

cos 

4>f  -  Z 

IN  Sin 

7  =  Y 

OUT  IN 

sin 

*F  +  z 

IN  COS 

where  <J>F  is  the  angle  of 

the 

panel 

normal 

to 

the  vertical.  It  is 

shown  in  Figure  18  of  Reference  1  depicted  as  <p„.  A  listing 
of  the  routine  is  presented  in  Figure  C-l (pp)  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

YIN , Z IN  input  lateral  and  vertical  velocities  in  fin 

coordinate  system  to  be  transformed 

YOUT , ZOUT  output  transformed  velocities  in  empennage 

coordinates 

PHIF  angle  of  rotation  of  plane  of  fin  from  horizontal, 

radians 

Called  by: 

VELNOR,  SPEC  PR,  LOADS 

C-63  Subroutine  ROTWB 

Subroutine  ROTWB  transforms  velocities  from  the  empennage 
reference  coordinate  system  to  the  body  interference  panel  coordi¬ 
nate  system.  The  transformation  performed  is: 
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Y 

=  Y  • 

cos 

0O 

-  Z  ■ 

sin 

0 

o 

i 

2 

i 

Z 

=  Y. 

sin 

e. 

+  z. 

cos 

6 

o 

1 

2 

1 

where  0£  *s  the  an9le  of  the  panel  normal  from  the  vertical.  It 
is  shown  in  Figure  18  of  Reference  1  depicted  as  e0  .  A 
listing  of  the  routine  is  presented  in  Figure  C-i (pp)  of  this 
report.  The  descriptions  of  the  parameters  in  the  argument 
list  follow: 

YI,ZI  input  lateral  and  vertical  velocity  components  in 

empennage  reference  coordinates  to  be  transformed 

YO,ZO  output  transformed  velocities  in  body  interference 

panel  local  coordinate  system 

I  index  of  body  interference  panel  number 

Called  by: 

CRFWBD,  VELNOR 

C-64  Subroutine  ROTWF 

Subroutine  ROTWF  transforms  velocities  from  the  empennage 
coordinate  system  to  the  local  fin  coordinate  system.  The  trans¬ 
formation  performed  is: 

YOUT  =  YIN  COS  +  ZIN  sin 

ZOUT  =  -YIN  sin  +  Z IN  C0S  ^F 
where  <J>„  is  the  angle  of  the  panel  normal  measured  from  the 

r 

vertical.  It  is  shown  in  Figure  18  of  Reference  1  depicted  as  <J>p. 
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A  listing  of  the  routine  is  presented  in  Figure  C-l  (qq)  of  this 
report.  The  descriptions  of  the  parameters  in  the  argument  list 
follow: 

YIN,ZIN  input  lateral  and  vertical  velocity  components  in 

the  empennage  coordinate  system  to  be  transformed 

YOUT , ZOUT  output  transformed  velocities  in  the  fin  coordinate 

sys  tern 

PHIF  angle  of  rotation  of  plane  of  fin  from  horizontal, 

radians 

Called  by: 

CRFWBD,  VELNOR,  DEMON  2 ,  SPECPR 

C -6 5  Subroutine  SDSTN2 

Subroutine  SDSTN2  organizes  the  solution  for  source  panel 
strengths  and  calculation  of  the  forces  and  moments  for  the 
separating  elliptic  store  including  the  effects  of  the  image 
store.  All  the  calculations  in  this  routine  are  performed  in 
the  store  source  panel  coordinate  system  ( XS>YS>ZS )  shown  in 
Figure  13  of  Reference  1.  A  listing  of  this  routine  is  presented 
in  Figure  C-l(qq)  of  this  report. 

SDSTN2  is  organized  to  perform  a  series  of  calls  to  different 
routines  to  setup  and  calculate  the  store  boundary  condition, 
solve  for  the  panel  strengths,  compute  the  resulting  velocities  and 
pressures  on  the  panel  surfaces,  and  sum  the  forces  and  moments. 

The  separating  store  boundary  condition  is  first  set  equal  to  the 
normal  component  of  the  nonuniform  flow  field  computed  at  the 
panel  control  points  in  routine  SF0RC2.  The  normal  is  computed 
from  the  component  velocities  and  the  panel  inclination  and 


-  ■  »  .  — 
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incidence  angles  in  routine  VNORM.  The  solution  lot  the  panel 
strengths  including  the  effects  ^ f  oie  image  store  is  then  com¬ 
puted  in  routine  EMAm,'H  using  a  ring  by  ring  marching  solution. 

The  velocities  used  in  the  pressure  calculation  are  the  sum 
of  the  perturbation  velocities  and  the  contributions  of  damping 
terms  due  to  p,  q,  and  r  motion  of  the  store.  The  perturbation 
velocities  are  computed  in  SOLVUV  from  the  panel  strengths  and 
the  U,  V,  and  W  matrices  stored  on  TAPES  as  passed  from  Program  I. 
The  damping  terms  are  added  in  routine  VELDMP.  The  Bernoulli 
pressure  acting  at  the  control  point  of  each  panel  is  then 
computed  by  PRESS  from  the  above  velocity  components.  The  forces 
and  moments  and  the  distributions  of  loads  on  the  body  are  lastly 
computed  in  FORMOM  based  on  the  above  pressure  acting  at  the 
control  points  of  the  panels. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

UT,VT,WT  arrays  containing  the  three  components  of  velocity 

in  the  store  source  panel  coordinate  system  due  to 
all  parent  aircraft  and  free  stream  effects  for 
the  translating  and  rotating  store 

LSKP(I)  logical  array  used  to  hold  temporary  calculation 

test  variable  for  Ith  panel 

IMAGE  logical  indicator  whether  image  store  effects  are 

to  be  computed 

IMAGE=. t r ue . ,  image  effects  computed 

IMAGE=. false . ,  no  image  store  influence  computed 

Subroutine  references: 

VNORM,  SMARCH,  SOLVUV,  VELDMP,  PRESS,  FORMOM 

Called  by: 

SF0RC2 
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C-66  Subroutine  SDSTRN 


Subroutine  SDSTRN  calculates  the  strengths  of  the  line  sources 
and  doublets  modeling  the  separating  store  in  the  nonuniform  flow 
field.  This  routine  is  called  by  SFORCE  when  the  circular  store 
option  is  used.  The  singularity  strengths  are  calculated  using 
the  equations  in  Section  A-2  of  Appendix  A  of  Reference  2.  A  list¬ 
ing  of  the  routine  is  presented  in  Figure  C-l(qq). 

At  the  beginning  of  the  ioutine  the  free-stream  axial  and  total 
Mach  numbers  as  seen  by  the  store  are  calculated.  If  a  wing  image 
store  is  present,  IMSTOR^O,  the  image  store  is  located  relative  to 
the  real  store  and  other  quantities  used  in  the  image  store  velocity 
field  calculation  are  determined.  If  a  fuselage  image  store  is 
present,  IMFSTR^O,  similar  quantities  are  calculated. 

The  remainder  of  the  routine  calculates  the  strengths  of  the 
line  sources  and  doublets  modeling  the  separating  store  in  the 
aircraft  flow  field,  including  image  store  influences,  if  any. 

The  strengths  of  the  source  and  doublets  originating  at  the 
store  nose  are  first  calculated.  The  remaining  singularity 
strengths  are  calculated  in  a  DO  loop  over  the  control  points. 

At  the  beginning  of  the  loop  the  influence  of  upstream  sources 
and  doublets  at  the  control  point  is  calculated.  The  next  section 
of  the  routine  is  executed  if  a  wing  image  store  is  present, 
IMSTOR^O.  The  values  of  and  8s  are  determined  and  subroutine 
IMSVEL  is  called  to  calculate  the  wing  image  store  induced  veloc¬ 
ities.  They  are  added  to  the  previously  calculated  parent  aircraft 
and  free  stream  velocities  at  the  control  points. 

The  next  part  of  the  routine  repeats  the  above  calculation  for 
the  fuselage  image  stores  if  they  are  present,  IMFSTR/0.  The 
values  of  p  and  Bs  are  calculated  for  the  image  store  and  the 
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centerline  image  store.  Two  calls  are  then  made  to  IMSVEL  to 
calculate  the  velocities  induced  by  these  stores.  The  velocities 
due  to  the  image  store  are  added  to  the  previously  calculated 
totals  and  those  due  to  the  centerline  store  are  subtracted. 

The  last  section  of  this  subroutine  calculates  the  strengths  of 
the  nth  source  and  doublets  using  the  previously  calculated  veloc¬ 
ities  in  the  boundary  condition. 

The  parameter  in  the  subroutine  argument  list  is  defined  as 
follows : 

XSHOL  location  of  store  shoulder,  point  of  maximum 

radius,  measured  from  store  nose 

Subroutine  references: 

IMSVEL,  SDTRMS 

Called  by: 

SFORCE 

C-67  Subroutine  SDTRMS 

Subroutine  SDTRMS  evaluates  the  square  root  and  inverse 
hyperbolic  cosine  terms  appearing  in  the  line  source  and  doublet 
expressions.  The  expressions  computed  are: 

!/Az  -  1  ,  A  >  1 

0  ,  A  i  1 

Sin  ( A+ROOT  { A)  )  ,  A  >  1 
0  ,  Ail 
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A  listing  of  the  routine  is  presented  in  Figure  C-l(rr)  of  this 
report. 

Called  by: 

SFORCE,  SDSTRN,  IMSVEL 

C-6 8  Subroutine  SEMFOR 

Subroutine  SEMFOR  calculates  the  empennage  forces  and  moments 
by  the  method  described  in  Section  5.3  and  Appendix  I  of  Refer¬ 
ence  (> .  A  listing  of  the  subroutine  is  presented  in  Figure  C-l  (ss)  , 
and  a  flow  chart  in  Figure  C-ll. 

An  examination  of  the  flow  chart  shows  that  the  first  steps  in 
the  routine  are  to  locate  the  point  at  which  the  empennage  forces 
act  relative  to  the  store  moment  center  and  to  set  JMAX  equal  to 
2  or  4  depending  on  whether  the  empennage  is  planar  or  cruciform. 

The  next  part  of  the  subroutine  calculates  the  perturbation 
velocity  field  at  the  MSF  control  points  on  each  of  the  JMAX  fins. 
After  the  parent  aircraft  velocities  are  calculated  by  subroutine 
RESVEL  they  are  resolved  into  the  store-body  coordinate  system  by 
subroutine  INTOST.  The  image  store  induced  velocities  are  next 
calculated  and  added.  The  free-stream  components  are  then 
calculated,  resolved  into  the  store-body  coordinate  system,  and 
added  to  the  perturbation  velocities.  The  resultant  velocities 
are  made  dimensionless  by  the  store  free-stream  velocity.  If 
aerodynamic  damping  is  being  included,  the  pitch  and  yaw  damping 
terms  are  then  added.  From  these  velocities  the  components  normal 
to  the  fin  surfaces  are  determined.  Positive  directions  are  shown 
in  Figure  10  of  Reference  6. 

The  remainder  of  the  routine  calculates  the  empennage  forces 

and  moments.  First  W  and  V  shown  in  Figure  10  of  Reference  6 

o  o 

are  determined  in  a  manner  similar  to  that  used  for  the  fin 
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control  points.  Then,  the  normal  force  and  the  side  force,  if  the 
empennage  is  cruciform,  are  calculated  using  Equations  (1-13)  and 
(1-18)  of  Reference  6.  The  spanwise  integrations  are  performed 
using  Simpson's  rule.  It  is  to  be  noted  that  in  the  present 
program  all  four  fins  are  assumed  to  have  the  same  span,  s^  =  s^ . 
The  pitching  moment  and  yawing  moment  are  calculated  using 
Equations  (1-21)  and  (1-22). 

These  forces  and  moments  are  in  the  fin  coordinate  system. 

They  are  resolved  into  the  body  coordinate  system  using  equations 
(58)  through  (61)  of  Reference  6. 

Finally,  if  rolling  moment  is  to  be  calculated  this  is  done 
using  Equations  (1-30)  or  (1-52)  of  Reference  6.  Equation  (1-30) 
is  for  a  planar  empennage  and  (1-52)  is  for  a  cruciform  empennage. 

Subroutine  references: 

INTOST,  RESVEL,  SIMSON,  STTOIN,  ZIMAGE 

Called  by: 

TRJTRY 

C-69  Subroutine  SEMPIN 

Subroutine  SEMPIN  initializes  certain  quantities  which  will  be 
used  repeatedly  in  the  circular  store  option  empennage  force  and 
moment  calculation,  subroutine  SEMFOR.  The  equations  programmed 
are  given  in  Appendix  I  of  Reference  6.  A  listing  of  the 
subroutine  is  presented  in  Figure  C-l  (tt)  and  a  flow  chart  in 
Figure  C-12  of  this  report. 

The  flow  chart  indicates  that  the  first  calculation  performed 
is  to  determine  the  radial  distance  outward  from  the  body  axis  to 
the  MSF  fin  control  points.  The  first  point  is  at  the  body-fin 
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juncture,  =  a  (see  Figure  10,  Reference  6),  and  the  last  is  at 

r^  =  =  sv .  The  others  are  equally  spaced  in  between  these  two 

points.  Next,  a  check  is  made  to  determine  that  XTAIL  was  input 

as  a  negative  quantity  and  then  the  angular  orientation  of  the 

fins  in  the  store-body  coordinate  system  is  determined.  Referring 

to  Figure  10  of  Reference  6,  these  angles  are  measured  in  the 

clockwise  direction  from  the  z  axis. 

s 

JMAX  is  next  set  equal  to  2  or  4  depending  on  whether  the 
empennage  is  planar  or  cruciform  and  then  the  y  and  z  coordinates 
of  the  control  points  on  all  of  the  fins  are  determined.  Next, 
certain  constants  are  calculated  and  then  the  values  of  ^cc^)  2 
are  calculated  at  the  control  points.  They  are  the  same  for  all 
panels  since  s^  =  sv  (see  Equations  (1-14)  and  (1-19),  Reference  6). 

If  rolling  moment  is  not  to  be  calculated,  NROLL=0 ,  control  is 
returned  to  the  calling  program.  If  rolling  moment  is  to  be 
calculated,  and  the  empennage  is  planar,  IPLNR=1,  (cc^)5  given 
by  Equation  (1-29)  of  Reference  6  is  calculated  at  the  control 
points.  Note  that  in  the  program  the  following  substitution  is 
made 


cosh  ■*'(x)  =  £n(x  +  /x7  -  1 ) 

For  a  cruciform  empennage,  IPLNR=0,  Equation  (1-51)  of  Refer¬ 
ence  6  is  used  for  the  first  control  point  where  y^  =  a.  For  the 
other  control  points  Equation  (1-38)  is  used.  The  following  sub¬ 
stitution  is  made  in  the  program 

U-1  ,  ,  1  o  (1  +  x) 

tanh  (x)  =  2  In  ^ _  x) 

Subroutine  references: 

C ELI ,  CEL2,  ELI 1 ,  ELI2 
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Called  by: 
TRJTRY 


C-70  Subroutine  SFORCE 

Subroutine  SFORCE  calculates  the  aerodynamic  forces  and 
moments  acting  on  the  separating  store  when  the  circular  store 
option  of  the  computer  program  is  used,  see  Section  6.2.1  of 
Reference  2.  The  forces  and  moments  are  calculated  using  the 
equations  in  Section  A-3  of  Appendix  A  of  Reference  2.  A 
listing  of  the  routine  is  presented  in  Figure  C-l(uu).  A  flow 
chart  is  shown  in  Figure  C-13. 

At  the  beginning  of  the  routine  the  Mach  numbers  and  Mach 
cone  angles  to  be  used  in  the  source  and  doublet  determination 
are  calculated.  Next,  a  test  is  performed  to  determine  if,  at 
the  base  of  the  body,  the  radial  distance  to  the  Bs  Mach  cone 
emanating  from  the  body  nose  is  less  than  the  maximum  radius  of 
the  body.  If  so,  an  error  message  is  printed  out  (see  Section 
4.4  of  Volume  II)  and  the  program  stops.  If  this  test  is  passed, 
the  origins  of  all  of  the  line  singularities  are  calculated. 

The  next  sections  of  the  subroutine  are  devoted  to  revising 
the  layout  of  the  body  definition  points  and  control  points  and 
the  origins  of  the  line  singularities.  If  the  first  control 
point  lies  outside  the  Mach  cone  from  the  nose  an  iteration 
is  performed  to  determine  the  intersection  of  the  cone  with 
the  body  surface.  Once  this  point  is  found  the  body  definition 
points  are  redistributed  over  the  remainder  of  the  body.  Next, 
the  axial  locations  of  the  control  point  and  the  body  radius 
and  surface  slope  at  these  points  are  calculated.  The  oriqins 
of  the  line  singularities  are  then  defined. 
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Subroutine  NUMACH  is  next  called  to  calculate  the  locations  of 
the  wing  leading-edge  and  tr ai 1 ing-edge  shock  waves  and  the  Mach 
numbers  associated  with  these  two  points.  The  points  at  which  the 
separated  store  nose  shock  wave,  which  reflects  off  the  wing  and 
fuselage,  strike  the  separated  store  are  determined  with 
successive  calls  to  REFSHK  and  FREFSH. 

The  next  three  loops  determine  the  velocity  field  in  which  the 
store  is  immersed.  The  first  loop  locates  each  control  point  in 
the  fuselage,  or  inertial,  coordinate  system;  calls  BVARIA  to  calcu¬ 
late  the  Mach  cone  angles,  betas,  to  use  in  the  fuselage,  rack,  and 
stores  velocity  calculations;  calculates  the  Mach  number  and  betas 
to  use  in  calculating  the  wing  induced  velocities;  and  calls  RESVEL 
to  calculate  the  parent  aircraft  induced  velocities.  Upon  return¬ 
ing  from  RESVEL,  these  velocities  are  resolved  into  the  store 
coordinate  system  by  calling  INTOST.  The  next  two  loops  add  in 
the  free-stream  and  store  angular  velocities. 

The  remainder  of  the  routine  calculates  the  loading  distributions 
and  total  forces  and  moments  acting  on  the  store.  The  strengths  of 
the  sources  and  doublets  modeling  the  store  in  the  nonuniform  flow 
field  are  calculated  by  a  call  to  SDSTRN  which  uses  the  method 
described  in  Section  A-2  of  Appendix  A  of  Reference  2.  Certain 
constants  are  calculated  and  then,  in  a  loop  over  the  axial 
stations  where  the  loads  are  to  be  calculated,  the  circumferential 
pressure  distributions  are  calculated  and  integrated  to  determine 
the  loads  using  the  methods  of  Section  A-3.  After  exiting  from 
this  loop,  the  load  distributions  are  integrated  axially  to  get 
the  forces  and  moments. 

Subroutine  references: 

BVARIA,  FREFSH,  INTOST,  NUMACH,  REFSHK,  RESVEL,  SDSTRN, 

SDTRMS,  SHAPE,  SIMSON,  STTOIN 
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Called  by: 
TRJTRY 


C-71  Subroutine  SFORC2 

Subroutine  SF0RC2  organizes  the  calculation  of  the  aerodynamic 
forces  and  moments  on  the  separating  elliptic  store  body  using 
the  three  dimensional  method  with  source  panels  as  described  in 
Section  6.3.1  of  Reference  2.  The  primary  functions  of  this 
routine  are  to  determine  the  presence  of  an  image  store  and  to 
compute  the  influence  of  the  parent  aircraft  components  at  the 
control  points  of  a  rotating  and  translating  store.  A  listing  of 
the  routine  is  presented  in  Figure  C-l (ww) ,  and  a  flow  chart  is 
given  in  Figure  C-14  of  this  report. 

This  routine  is  organized  around  computing  the  influence  of 
the  parent  aircraft  components  on  the  store.  SF0RC2  first 
computes  initial  constants  and  sets  aside  array  space  in  blank 
common  for  velocity  arrays  and  temporary  storage  of  the  image 
store  control  points.  Based  on  the  location  of  the  store  center 
of  gravity  relative  to  the  wing  axis,  the  B's  associated  with  the 
nonlinear  shock  emanating  from  the  parent  aircraft  wing  are  com¬ 
puted  in  NUMACH.  The  reflections  of  the  separating  store  shocks 
from  the  wing  and  either  the  circular  or  noncircular  fuselage 
are  then  checked  to  see  whether  they  strike  the  store  in  ELRFLW 
and  ELRFLB,  respectively.  If  they  do,  the  closer  of  the  two  is 
used  to  locate  the  presence  of  an  image  store  later. 

SF0RC2  then  performs  a  double  DO  loop  over  the  number  of  rings 
and  the  number  of  panels  in  a  ring  on  the  store  to  compute  the 
parent  aircraft  influence  at  each  panel  control  point.  Each 
control  point  is  located  in  the  fuselage  coordinate  system  by 
rotation  relative  to  the  moment  center  in  STTOIN.  The  B's  to  be 
used  in  the  velocity  calculation  due  to  nonlinear  shocks 


propagating  from  all  parent  aircraft  axisymmetric  and  noncircular 
bodies  except  the  separating  store  are  computed  in  BVARIA.  If  the 
point  lies  within  the  influence  of  the  wing,  the  wing  Mach  number 
and  B  are  interpolated  for  from  the  values  at  the  leading  and 
trailing  edges  computed  in  NUMACH.  The  parent  aircraft  velocity 
influences  are  computed  in  RESVEL  in  the  fuselage  reference 
coordinate  system  and  rotated  into  store  coordinates  in  INTOST. 

The  free  stream  velocity  components  due  to  the  translation  of  the 
separated  store  previously  computed  in  VXYZ  are  then  added.  If 
damping  is  included,  it  is  added  in  VELDMP. 

If  the  image  store  was  to  be  included  for  the  closer  of  the 
wing  or  the  fuselage  reflections,  the  set  of  control  points  on  the 
image  store  are  computed  in  IMAGYZ  at  this  point.  If  more  than 
one  empennage  is  present  on  the  store,  an  average  of  the 
nonuniform  flow  field  at  each  ring  is  computed  in  VWAVG  to  be  used 
later  in  tracking  vortices  between  sets  of  fins.  The  panel 
strengths  and  the  forces  and  moments  are  computed  in  a  call  to 
SDSTN2.  This  generates  the  loads  only  on  the  store  body  including 
the  influences  of  the  parent  aircraft,  the  free  stream,  and  the 
reflected  shock  in  the  form  of  an  image  store.  All  empennage 
effects  will  be  included  later  in  computing  the  loads  on  the 
interference  shell  of  the  empennage. 

Subroutine  references: 

BVARIA,  ELRFLB ,  ELRFLW ,  IMAGYZ,  INTOST,  I OREAD ,  NUMACH, 

RESVEL,  SDSTN2 ,  STTOIN,  VELDMP,  VNORM,  VWAVG 

Called  by: 

TRJTRY 


C-72  Subroutine  SHAPE 


The  purpose  of  this  subroutine  is  to  calculate  the  radius  and 
surface  slope  for  a  circular  body  at  a  specified  axial  station. 

The  body  shape  is  specified  by  a  series  of  polynomials  of  the  form 
of  Equation  (1)  of  Volume  II.  A  flow  chart  of  subroutine  SHAPE  is 
presented  in  Figure  A-ll  of  Volume  III  and  a  listing  of  the 
subroutine  in  Figure  C-l (xx) . 

The  quantities  in  the  parameter  list  are: 

X  value  of  x/£  at  which  radius  and  surface  slope 

are  to  be  calculated 

NS  number  of  polynomials  describing  body  shape 

XE  array  containing  values  of  x/l  for  the  end  points 

of  the  NS  polynomials 

C  array  containing  the  coefficients  of  the  NS 

polynomials 

R  calculated  value  of  r/l  at  x/l  -  X 

DRDX  calculated  value  of  dr/dx  at  x/£  =  X 


The  calculation  performed  by  this  subroutine  consists  of  two 
steps.  The  first  step  is  to  determine  which  of  the  NS  polynomials 
describes  the  shape  at  the  value  of  X  where  the  radius  and  surface 
slope  are  required.  Once  this  is  determined,  the  appropriate  set 
of  coefficients  is  used  in  Equation  (1)  of  Reference  1  to 
determine  r/l .  The  value  of  dr/dx  is  found  by  differentiating 
Equation  ( 1 ) . 


2C2  l  +  C: 


Vc 


C2(Z) 


+  C3  I  +  C4  J 


+  +  2Cg  ^ 
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It  should  be  noted  that  r /l  and  dr/dx  are  calculated  using  the 
coefficients  of  the  NSth  polynomial  if  x/£  is  greater  than  XE(NS). 

Called  by: 

EJECTR,  SFORCE,  SWINT,  TRJTRY 

C-73  Subroutine  SHKLOC 

Subroutine  SHKLOC  locates  the  shock  wave  from  an  axisymmetric 
body  at  coordinates  Y,  Z  relative  to  the  body.  The  location  is 
converted  into  a  radial  distance  and  a  search  performed  in  the 
tabulated  shock  shape  to  find  the  two  values  between  which  the 
point  lies.  A  linear  interpolation  is  then  performed  to  compute 
the  X  location  of  the  shock.  A  listing  of  the  routine  is  pre¬ 
sented  in  Figure  C-l(yy)  of  this  report.  The  descriptions  of 
the  parameters  in  the  argument  list  follow: 

X  computed  axial  location  of  shock  at  distance  R 

from  body 

R  radial  distance  from  body  at  which  axial  location 

is  to  be  computed 

NS  number  of  X  versus  R  pairs  in  shock  table 

SX,SR  arrays  containing  X  and  R  values  describing  shock 

shape  relative  to  axisymmetric  body.  Shape  is 
generated  at  zero  degrees  angle  of  attack  and  is 
invariant  with  polar  angle 


Called  by: 
BVARIA 
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C- 74  Subroutine  SIMSON 

Subroutine  SIMSON  calculates  the  value  of  a  definite  integral 
using  Simpson's  rule.  This  can  be  found  in  any  elementary  numer¬ 
ical  analysis  book,  for  example.  Reference  7.  As  programmed  here 

x  +mAx 
o 

I  =  f  f(x)dx  =  ^  { f ( x  )  +  4f(x  +  Ax)  +  2f(x  +  2Ax) 

J  J  o  o  o 

X 

o 

+  4f(xQ+3Ax)  +  2f(xQ+4Ax)  +  ...  +  4f  [xq  +  (m-l)Ax] 

+  f (x  +  mAx) } 
o 


where  m  must  be  an  even  number  and  4  or  greater.  The  subroutine 
is  listed  in  Figure  C-l(yy)  of  this  report.  Referring  to  the 
listing  and  the  above  equation,  the  quantities  in  the  subroutine 
parameter  list  are: 

N  m  +  1 

F  f  (x) 

DX  Ax 

SUM  I 

C-75  Subroutine  SMARCH 

Subroutine  SMARCH  solves  for  the  source  panel  strengths  using 
a  ring  by  ring  marching  technique.  The  solution  may  be  computed 
also  for  the  panel  strengths  in  the  presence  of  an  image  body.  A 
listing  of  the  subroutine  is  presented  in  Figure  C-l(yy)  of  this 
report . 

SMARCH  is  organized  to  provide  the  general  source  panel  solution 
for  a  body  in  supersonic  flow: 
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[A] YB  -  VB  t A i 1 Yg 

where  [A]  is  the  aerodynamic  influence  coefficient  matrix 
partitioned  into  blocks  of  the  coefficients  of  one  ring  on 
another;  Y0  are  the  panel  strengths  ;  VB  are  the  boundary  con¬ 
dition  normal  velocities  in  the  absence  of  an  image  body;  and  [Aj] 
is  the  influence  coefficient  matrix  of  the  image  body  on  the  real 
body  control  points.  The  solution  proceeds  in  blocks  of 
equations,  with  only  those  blocks  of  equations  on  or  below  the 
diagonal  computed  and  saved  on  TAPE9 .  The  first  block 
cor  respond  i.ng  to  the  influence  of  a  ring  on  itself  is  read  from 
TAPE9  in  [L*U]  decomposed  form.  The  solution  for  that  ring  is 
computed  with  PAS002.  Subsequent  blocks  in  column  form  are  read 
and  multiplied  by  the  strengths  of  that  ring  and  subtracted  from 
the  boundary  conditions  for  following  rings.  If  an  image  body  is 
present  the  influence  of  that  ring  of  the  image  body  is  also 
computed  on  following  downstream  panels  in  IMAGEV  and  used  to 
modify  subsequent  boundary  conditions. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 

GB  array  of  panel  strengths,  Ya 

VB  array  of  panel  boundary  conditions  destroyed 

during  solution 

IA  index  of  starting  location  in  blank  common  of 

temporary  A  matrix 

IMAGE  logical  indicator  of  presence  of  image  body 

Subroutine  references: 

IOREAD,  PAS002,  IMAGEV 

Called  by: 

SDSTN2 
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C-76  Subroutine  SOLVUV 


Subroutine  SOLVUV  computes  the  panel  on  panel  induced 
velocity  components  at  panel  control  points.  Velocity  coef¬ 
ficient  arrays  are  read  from  TAPE8  and  multiplied  by  the  panel 
strength  to  compute  U,V,W. 

U  =  [Au]yb 

V  -  tVYB 
w  =  [aw]Yb 

The  coefficient  arrays  are  assumed  to  be  stored  in  blocks  of 
coefficients  representing  the  influence  of  one  ring  of  panels  on 
another.  The  routine  performs  a  double  DO  loop  over  the  number  of 
rings.  The  outer  loop  steps  through  the  number  of  influencing 
blocks  of  data.  The  inner  loop  in  supersonic  flow  steps  through 
the  number  of  rings  of  panels  influenced.  For  a  given  ring,  it  is 
assumed  there  is  no  upstream  influence  and  the  latter  loop  starts 
from  the  ring  on  itself.  A  listing  of  the  routine  is  presented  in 
Figure  C-l (yy)  of  this  report.  The  descriptions  of  the  parameters 
in  the  argument  list  follow: 

U,V,W  arrays  of  computed  velocity  components  in  source 

panel  coordinate  system 

A  temporary  matrix  to  contain  blocks  of  coefficients 

read  from  TAPE8 

GB  array  of  panel  strengths 


NBODY 


number  of  panels 


SUPERS  logical  indicator  representing  supersonic  flow 

SUPERS=. true. ,  only  lower  triangle  blocks  computed 
SU PERS  = . f a  1 se . ,  entire  matrix  of  blocks  used  in 

computation 


Subroutine  references: 
I  OREAD 

Called  by: 

SDSTN2 


C-77  Subroutine  SORPAN 

Subroutine  SORPAN  computes  the  three  components  of  velocity 
induced  at  a  specified  control  point  by  a  constant  source  dis¬ 
tribution  on  a  quadrilateral  panel  having  longitudinal  taper 
and  inclined  at  an  angle,  DELTA,  to  the  free  stream  direction. 

This  version  has  been  specialized  for  only  supersonic  flow. 

This  routine  is  based  on  the  methods  and  equations  presented 
in  Reference  8.  A  listing  of  the  subroutine  is  presented  in 
Figure  C-l(zz)  of  this  report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow 

UPM , VPM , WPM  three  orthogonal  components  of  velocity  in  local 
panel  coordinates  induced  by  panel  with  control 
point  XJ,ZJ  at  field  point  XI,YI,ZI 

Called  by: 

PANVEL 
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C -78  Subroutine  SOUTPT 

Subroutine  SOUTPT  prints  the  output  at  the  end  of  each 
trajectory  integration  step.  A  listing  of  the  subroutine  is 
presented  in  Figure  C-l (aaa)  and  a  flow  chart  in  Figure  C-15  of 
this  report. 

The  current  value  of  the  time  is  first  printed  and  then  the 
force  and  moment  components  calculated  in  subroutines  SFORCE  and 
SEMFOR  for  the  circular  store  option  or  in  subroutines  SF0RC2  and 
DEM0N2  for  the  elliptic  store  option  and  the  totals  are  printed. 

If  the  ejector  force  option  is  used  (NJECTR  not  equal  to  zero) 
the  ejector  forces  and  moments  are  printed.  If  store  thrust 
has  been  calculated  (NTRHUS  not  equal  to  zero)  the  thrust 
force  is  printed.  Next,  the  normal-force  and  side-force 
distributions  acting  on  the  store  body  alone  are  printed.  The  xg 
locations  are  the  points  on  the  body  at  which  the  forces  act. 

The  next  section  of  the  subroutine  locates  the  store  nose, 
moment  center,  and  base  in  the  fuselage  or  inertial  system.  These 
points  are  located  relative  to  the  fuselage  nose  and  also  relative 
to  where  they  would  be  had  the  store  remained  in  the  t  =  0  posi¬ 
tion  on  the  aircraft.  These  positions  are  printed. 

The  remainder  of  the  subroutine  prints  the  store  moment  center 
translational  velocities  and  accelerations,  the  store  rotational 
velocities  and  accelerations,  and  the  store  angular  orientation 
and  rates  of  change  of  these  angles. 

Subroutine  references: 

STTOIN 

Called  by: 

TRJTRY 


C  -79  Subroutine  SPECPR 


Subroutine  SPECPR  computes  the  Bernoulli  pressures  at  control 
points  of  the  constant  u-velocity  panels  on  the  empennage  fin  sur¬ 
faces.  It  calls  BDYPR  to  compute  pressures  on  the  body 
interference  shell  and  LOADS  to  sum  the  forces  and  moments  on  the 
empennage.  A  description  of  the  methods  and  equations  used  is 
given  in  Section  3.6  of  Reference  5.  A  listing  of  the  routine  is 
presented  in  Figure  C-l (bbb)  of  this  report. 

In  calculating  the  panel  pressures  only  the  influence  of  the 
store  singularities  and  the  store  motion  are  accounted  for.  All 
velocities  and  loads  computed  are  in  the  body  coordinate  system. 
The  descriptions  of  the  parameters  in  the  argument  list  follow: 

NDAMP  damping  indicator;  see  input  item  4  to  Program  II 

XM  moment  center  relative  to  store  nose,  feet 

VS TORE  VOT  ,  Equation  (97),  Reference  2 

s 

VAR(N),  S,  n,  C,  p,  q,  r,  £,  n,  t,  y,  0,  4>  respectively 

N=1 , 2, . . .12 

HEAD  alphanumeric  description  of  empennage 

Subroutine  references: 

BDYPR,  LOADS,  ROTFW ,  ROTFW,  VELDMP,  VELNOR 

Called  by : 

DEM0N2 
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C -80  Subroutine  SPNLD 


Subroutine  SPNLD  computes  the  span  load  distribution  for 
monoplane  or  cruciform  wing  or  fin  configurations.  The  cruciform 
configuration  is  restricted  to  the  "plus"  fin  arrangement.  Fin 
trailing  edge  vortex  strengths  and  spanwise  locations  are 
determined  from  the  span  load  distributions.  A  description  of  the 
relevant  methods  and  equations  is  given  in  Appendix  B  of  Reference 
5.  A  listing  of  the  routine  is  presented  in  Figure  C-l(ccc)  of 
this  report. 

Called  by: 

LOADS 

C-81  Subroutine  STRDAT 

Subroutine  STRDAT  copies  the  separating  elliptic  store  (NEJSTR) 
data  into  labeled  and  blank  commons  and  organizes  the  remaining 
elliptic  store  and  noncircular  fuselage  data  sequentially  in  blank 
common.  It  sets  up  and  saves  the  information  necessary  to  locate 
all  arrays  for  two  elliptic  store  shapes  and  the  noncircular 
fuselage  in  blank  common.  A  listing  of  the  routine  is  presented 
in  Figure  C-l(fff)  of  this  report.  A  description  of  the  locations 
of  variables  in  blank  common  is  presented  in  Appendix  D. 

This  routine  makes  a  series  of  calls  to  FRSTRT  to  reorganize 
existing  data.  It  assumes  that  the  noncircular  fuselage  data 
arrays  have  been  copied  by  RDFILE  onto  TAPE11  and  the  similar 
arrays  for  the  elliptic  store  shapes  have  been  copied  onto  TAPE10. 
The  data  for  the  separating  elliptic  store  shape  is  first  copied  by 
FRSTRT  using  K0DE=4.  All  control  integers  and  parameters  are 
copied  into  their  appropriate  labeled  commons.  The  geometric 
arrays  are  stored  in  blank  common  starting  at  the  first  location. 
This  is  the  only  configuration  for  which  the  aerodynamic  influence 
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coefficients  are  copied  onto  TAPE8  and  TAPE9.  Additional  storage 
space  in  blank  common  is  also  allocated  to  hold  the  arrays  VB,  U, 
V,  W,  and  CP.  The  parameter  LASTEJ  is  defined  to  contain  the  last 
location  in  blank  common  used  by  the  separating  store  data.  If  the 
second  elliptic  shape  is  the  separating  store,  the  first  store 
shape  data  on  TAPE  10  must  be  read  and  then  replaced  by  data  for 
the  second  shape. 

The  data  of  the  noncircular  fuselage  is  copied  into  blank 
common  by  FRSTRT  using  KODE=5.  For  the  fuselage  and  the  addi¬ 
tional  store  shape  both  the  control  integers  and  geometric 
arrays  must  be  stored  in  blank  common.  The  fuselage  data  is 
saved  immediately  after  the  separating  store  arrays.  The  param¬ 
eters  IDF  and  LASTF  are  defined  to  contain  the  offset  value  and 
the  last  location  for  the  fuselage  data  in  blank  common. 

The  data  of  the  second  elliptic  store  shape  is  next  copied 
into  blank  common  by  FRSTRT.  If  it  is  the  second  store  shape  on 
TAPE 10,  it  is  read  using  K0DE=5.  If  it  is  the  first  shape,  TAPE10 
is  rewound  and  the  data  read  using  KODE=6.  The  parameters  ID2  and 
LASTA  are  defined  to  contain  the  offset  value  and  the  last 
location  for  the  second  store  shape  in  blank  common. 

A  copy  of  blank  common  containing  the  separating  and  second  store 
data  and  the  fuselage  data  is  lastly  saved  on  TAPE7.  This  is  the 
copy  of  blank  common  that  will  be  retrieved  each  time  blank 
common  is  overwritten  by  other  routines.  A  description  of  the 
allocation  of  the  actual  arrays  in  blank  common  at  this  time  is 
found  in  Section  D-3  of  Appendix  D.  The  descriptions  of  the 
parameters  in  the  argument  list  follows: 


116 


NFU 


fuselage  indicator;  see  item  4  of  Program 


REFAEJ  reference  area  of  separating  store,  feet 

REFDEJ  reference  length  of  separating  store,  feet 

BODLEJ  body  length  of  separating  store,  feet 

Subroutine  references: 

FRSTRT,  IOWRIT 

Called  by: 

TRJTRY 

C  -82  Subroutine  STTOIN 

Subroutine  STTOIN  (see  Figure  C-l(fff)  for  a  listing)  takes  a 
vector  with  components  specified  in  the  store  x,y,z  coordinate 
system  directions  and  transforms  it  into  a  vector  with  components 
in  the  inertial  coordinate  system  directions,  see  Figure 

21  of  Volume  II.  That  is. 


The  matrix  [A]  is  given  by  Equation  (B-2)  in  Appendix  B  of 
Reference  2  and  is  calculated  in  subroutine  DIRCOS  for  the 
separating  store.  The  similar  arrays  for  the  fixed  store  are 
calculated  in  RESVEL. 

In  terms  of  the  above  notation,  the  quantities  in  the  param¬ 
eter  list  of  the  subroutine  are: 
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;tr  -  V 


X 
Y 
Z 

XI 
ETA 
ZETA 
DC 


Called  by: 

SFORCE,  SEMFOR,  SFORC2,  DEMON2 ,  SOUTPT,  REFSHK,  ELRFLB ,  EJECTR, 
RESVEL 


C-83  Subroutine  SWINT 


Subroutine  SWINT  finds  the  intersection  of  a  shock  with  an 
axisymmetric  body.  It  is  used  to  locate  the  intersection  of  the 
store  shock  with  the  circular  fuselage.  The  exact  location  is 
computed  by  interpolation  in  the  tabulated  store  shock  wave  shape 
and  an  iteration  with  the  polynomial  description  of  the  surface 
shape.  A  listing  of  the  routine  is  presented  in  Figure  C-l(fff) 
of  this  report. 


The  routine  is  partitioned  into  two  tasks.  The  first  is 
finding  the  axial  intersection,  XAX,  of  the  tabulated  shock  shape 
with  the  axis  of  the  body.  If  the  body  is  located  at  a  radial 
distance  beyond  the  tabulated  shape  extrapolation  using  the  last 
two  points  is  performed.  Otherwise  the  table  is  searched  to  find 
the  two  values  of  RS  between  which  the  axis  lies.  The  return 
intersection  code.  INT,  is  set  one  of  three  values  depending 
on  whether  the  body  intersection  is  found. 


INT  = 


>1,  0  <  XAX  <  BLN,  intersection  with  body  occurs 
0,  0  >  XAX  or  XAX  >  BLN,  no  intersection  found 
-1,  XAX  search  failed 
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The  second  task  performed  by  SWINT  is  a  refinement  of  the 
intersection  point  from  the  axis  to  the  point  on  the  surface  of 
the  body.  The  procedure  used  here  is  to  first  back  up  in  the 
tabulated  shock  shape  to  find  the  XS  and  RS  values  which  bracket 
the  radial  distance  to  the  body  surface.  A  more  precise  location 
is  found  by  continuing  to  halve  the  interval  until  the  tolerance 
0.01*RMAX  is  achieved.  The  value  of  INT  contains  the  number  of 
times  the  interval  was  halved. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 


XZ  ,  RZ 

KX 

XS ,  RS 

XE,C,NS 

BLN 

RMAX 

DRDXS 

DRDXB 

XB,  RB 

INT 


X,R  coordinates  of  shock  origin  relative  to 
ax i symmetric  fuselage  nose 

number  of  XS-RS  table  values 

table  of  X,  F  values  of  separating  store  shock 
relative  to  store  nose 

information  giving  polynomial  description  of  fuselage, 
r /l  =  f(x/£):  end  points,  coefficients  and 
number  of  segments 

length  of  fuselage  (£) 

maximum  radius  of  fuselage,  used  to  determine  tolerance 
dr/dx  of  shock  wave  at  intersection  point 
dr/dx  of  fuselage  at  intersection  point 
X , R  of  intersection  point  relative  to  fuselage  nose 
intersection  code  parameter;  see  above  descriptions 
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Subroutine  references: 
SHAPE 


Called  by : 

FREFSH,  ELRFLB 


C -84  Subroutine  SWINTE 

Subroutine  SWINTE  finds  the  intersection  of  a  shock  with  a 
noncircular  arbitrarily  paneled  body.  Only  an  approximate 
reflection  point  based  on  the  intersection  of  the  shock  wi th  the 
panel  surface  is  computed.  A  listing  of  the  routine  is  presented 
in  Figure  C-l(ggg)  of  this  report. 

The  procedure  used  to  approximate  the  shock  reflection  point, 
similar  to  that  shown  in  Figure  C-7,  is: 

1.  Define  the  R  versus  X  plane  between  the  fuselage  axis  and 
the  store  nose. 


RZ  = 

/ybn  +  : 

sin>JBS  = 

ybn^rz 

COSJBS  = 

WRZ 

R  is  positive  from  fuselage  centerline  outward  and  X  is  positive 
from  fuselage  nose  aft. 

2.  Find  axial  location,  XAX  of  intersection  of  tabulated  shock, 

XS , RS ,  with  fuselage  axis.  If  XAX  is  between  the  nose  and 
BLN,  the  intersection  is  assumed  to  occur.  The  intersection 
code,  IMFSTR ,  is  set  to  one  of  the  two  return  codes  as 
follows.  If  IMFSTR=0,  the  remaining  steps  are  ignored. 
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IMFSTR 


1,  0  <  XAX  <  BLN,  intersection  occurs 


0,  no  intersection  occurs 

Refine  axial  and  meridional  locations  by  finding  the  ring  of 
panels  which  contains  the  point  XAX+g*ZPT,  where  ZPT  is  the 
Z-coordinate  of  the  first  panel  in  the  ring  of  interest.  The 
meridional  panel  i's  located  by  searching  for  panel,  IP,  with 
outward  normal  lying  closest  to  the  plane  containing  the 
point  and  the  store  axis. 

The  intersection  of  the  shock  with  the  panel  is  then  computed 
from  the  line  through  the  panel  control  point  with  the  same 
slope  as  the  panel  and  the  tabulated  shock  values. 

Equation  of  line  in  plane  of  panel: 

R  =  /YPT(IP)2  +  ZPT  ( IP);  +  (dr/dx)B  •  [  XBS-XPT  (IP)] 


Equation  of  shock  segment: 

R  =  RZ  -  RSi_1  -  (dr/dx) s  (XBS-XSi_1-XZ) 

where 

(dr/dx)s  =  -(RSi  -  RSi_1)/(XSi  -  XSi_1) 
Intersection  at: 


XBS 


RZ-RS  .  -(dr/dx)  (XS.  ,  +XZ)  -  APT(IP)  z+ZPT(IP)  5  +  (dr/dx)  •  XPT(IP) 
_ l-I _ s  l-l _ B _ 

(dr/dx)  -  (dr/dx) 

B  S 
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5.  The  intersection  location,  XBS,RBS,  is  converted  into  fuse¬ 
lage  coordinates  and  projected  onto  the  line  between  the  body 
axis  and  the  store  nose. 

Fuselage  coordinates  of  intersection: 

YgS  =  (dr/dx) b(Xbs  -  XPT(IP) )  sin9Ip  +  YPT(IP) 

Z^s  =  (dr/dx) B (XBS  -  XPT  (IP) )  cos6Ip  +  ZPT(IP) 

Coordinates  projected  onto  f use  1 ag e/s to r e  plane: 


=  rbs 

sin0BS  +  YBN 

ZBS 

=  rbs 

COS°BS  +  ZBN 

wnere 

rbs 

(ybs 

-  YBN)sin;BS  + 

(ZBS  ~  ZBN;COSHBS 

The  descriptions  of  the  parameters  in  the  arqument  list 
follow.  The  remaining  variables  output  from  this  routine  may  be 
found  in  the  descriptions  for  common  BSWTNT  in  Appendix  D. 

XZ,YBN,ZBN  X,Y,Z  coordinates  of  shock  origin  relative  to 
fuselage  body  nose 

NS  number  of  XS-RS  table  values 

XS , RS  table  of  X,R  values  locating  shock  relative  to 

shock  origin  in  plane  between  fuselage  centerline 
and  store  nose 


BLN 


length  of  body 


XBS , RBS 


X, R  of  intersection  point  relative  to  fuselage 
nose 

NFUS  number  of  fuselage  body  segments 

IMFSTR  intersection  return  code;  see  above 

KFORX,KRADX  arrays  of  number  of  axial  and  meridional  points 

used  to  describe  fuselage  panel  geometry  per  segment 

XPT , YPT, ZPT  arrays  containing  coordinates  of  fuselage  panel 
control  points 

THET, DELTA  arrays  containing  inclination  and  incidence  angle 
of  fuselage  panels  at  control  points 

XC  array  of  axial  locations  of  starting  and  ending 

stations  of  panel  rings 

Called  by: 

FRESHK,  ELRFLB 

C-85  Subroutine  THRCAL 


Subroutine  THRCAL  calculates  the  store  thrust  at  a  given  time. 
A  listing  of  the  subroutine  is  presented  in  Figure  C-l(hhh)  of 
this  report. 


The  thrust  force  acts  along  the  store  longitudinal  axis  and 
is  specified  by  a  series  of  polynomials  of  the  form 


6 

=  l  a  tr 
n=l  n 


1  2  1 


where  is  the  thrust  in  pounds  at  time  t.  The  time  history  is 
specified  by  one  of  NTPOLY  polynomials  each  of  which  is  applicable 
for  a  range  of  t.  The  subroutine  first  determines  which  polynomial 
should  be  used  for  the  given  time  value  t.  Once  this  is  deter¬ 
mined,  the  appropriate  set  of  coefficients,  a  ,  is  used  in  the 
above  equation  to  calculate  F  .  If  t  is  greater  than  the  end  of 
the  specified  thrust  time  history,  an  error  message  is  printed 
(see  Section  4.4  of  Volume  II)  and  the  program  stops. 

The  following  table  of  definitions  contains  most  of  the  vari¬ 
able  names  used  in  the  subroutine.  Section  4.2.2  of  Volume  II 
should  be  consulted  for  the  definition  of  a  variable  which  is  an 
input  item. 


FTHRUS 

NTPOLY 

T 

TC (J,  I) 


TEND  (J) 


F  ;  store  thrust  at  time  t 
T 

number  of  polynomials;  input  item  29  of  Program  II 

t;  time  at  which  thrust  force  is  to  be  calculated 

thrust  polynomial  coefficients;  input  item  31 
of  Program  II 

time  end  point  for  Jth  polynomial;  input  item  30 
of  Program  II 


Called  by: 
TRJTRY 


C  -86  Subroutine  VELBD2 

Subroutine  VELBD2  calculates  perturbation  velocities  at  a 
given  field  point  due  to  the  constant  u-velocity  panels  on  the 
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fuselage,  according  to  the  methods  described  in  Sections  5.6 
and  3 . 3  of  Reference  3.  A  listinq  of  the  subroutine  is  presented 
in  Figure  d-l(hhh).  The-  subroutine  uses  quantities  calculated  in 
subroutine  BLYi't'T  which  is  described  in  Section  A-5  of  Volume  III. 
The  winq  coordinate  system  is  shown  in  Figure  7  of  Volume  II. 

At  the  beginning  of  the  subroutine  the  logical  variable  PYPNL 
is  set  equal  to  FALSE,  the  velocity  totals  UP,  VP,  and  WP  are 
initialized  to  zero,  and  the  panel  leading-edge  and  trai 1 ing-edge 
slopes,  EM,  are  defined  as  zero.  The  remainder  of  the  subroutine 
consists  of  a  double  DO  loop  in  which  the  aerodynamic  influence 
coefficients  and  induced  velocities  are  calculated  for  a  single 
panel  corner.  The  outer  loop  index  runs  over  the  corner  points  in 
a  ring  on  the  body.  The  inner  loop  index  runs  over  the  points  in 
a  chordwise  row.  Variables  which  are  constant  for  a  chordwise  row 
are  initialized  in  the  outer  loop.  The  numbering  of  fuselage 
panel  corners  is  illustrated  in  the  sketch  in  Section  A-29  of 
Volume  III. 

The  coordinates  of  the  field  point  are  given  as  formal  param¬ 
eters  in  the  wing  coordinate  system.  The  subroutine  locates  the 
field  point  relative  to  the  influencing  corner  in  the  coordinate 
system  associated  with  subroutine  VEL02  and  illustrated  in 
Figure  7  of  Reference  2.  In  the  VEL02  system  the  origin  is  at 
the  vertex  of  the  semi-infinite  triangle  (the  corner  point) ,  x 
is  positive  to  the  rear,  y  is  positive  to  the  right  in  the  plane 
of  the  fuselage  panel,  and  zv  is  positive  outward  normal  to  the 
panel.  The  sketch  below  illustrates  the  xv,yv,zv  system  for  two 
panel  corners,  one  in  the  upper  left  quadrant  ( 90°<THTBP ( I ) <1 80°) 
and  one  in  the  lower  left  quadrant,  when  viewed  from  the  rear. 


0  =  THTBP(I) 


At  the  beginning  of  the  inner  DO  loop  two  tests  are  performed  to 
eliminate  possible  unnecessary  calculations:  first,  if  the  field 
point  is  located  ahead  of  the  corner  (x<0),  the  influence  of  that 
corner  and  all  of  the  remaining  corners  in  the  chordwise  row  are 
zero;  second,  if  the  net  strength  associated  with  the  corner  is 
zero,  the  perturbation  velocity  is  zero  and  calculation  of  the 
influence  coefficients  is  omitted. 

The  remainder  of  the  inner  loop  calculates  the  corner  influence 
functions,  by  means  of  subroutine  VEL02 ,  and  the  influence  func¬ 
tions  for  the  image  of  the  corner  with  respect  to  the  vertical 
plane  of  symmetry.  Separate  sections  of  the  subroutine  are  used 
depending  upon  the  fuselage  quadrant  in  which  the  corner  lies. 

The  returned  functions,  U,V,W,  are  resolved  back  into  the  wing 
system  and  summed.  If  the  corner  is  located  in  the  lower  left 
quadrant  the  signs  of  the  influence  functions  are  reversed  in 
the  summation.  The  flow  of  the  logic  in  this  routine  for  the 
calculations  in  the  upper  and  lower  left  quadrants  follows  closely 
that  in  VELBD1  in  Section  A-47  of  Volume  III  for  corner  1  and  its 
corresponding  flow  chart  in  Figure  A-14.  Only  the  additional  loops 
over  the  corners  to  sum  the  above  mentioned  results  have  been  added 


Finally,  for  each  corner  whose  influence  at  the  field  point  is 
nonzero  (FELT=TRUE),  the  influence  coefficients  are  multiplied  by 
the  net  corner  strength  to  obtain  the  induced  perturbation  veloc¬ 
ities,  UP,VP,WP.  These  velocities  are  summed  for  all  corner 
points  associated  with  the  fuselage  constant  u-velocity  panels. 

The  variables  in  the  subroutine  parameter  list  are: 

XX,YY,ZZ  x  ,  y  ,  z  coordinates  of  field  point  in  wing 

WWW  ^ 

coordinate  system 

Subroutine  references: 

VEL02 

Called  by: 

RESVEL 

C-87  Subroutine  VELCAL 

Subroutine  VELCAL  calculates  perturbation  velocities  at  a 
given  field  point  due  to  the  circular  fuselage,  rack  or  store 
source  and  doublet  distributions,  according  to  Equation  (16)  of 
Reference  2.  A  listing  of  the  subroutine  is  presented  in 
Figure  C-l(iii)  of  this  report.  The  fuselage  coordinate  system 
is  shown  in  Figure  5  of  volume  II.  The  rack  and  store  coordinate 
systems  are  similarly  oriented. 

The  coordinates  of  the  field  point  are  given  as  formal 
parameters  in  the  appropriate  body  coordinate  system.  The 
subroutine  first  transforms  these  coordinates  into  the  VELCAL 
system  by  changing  the  sign  of  X  and  Z,  and  then  into  the  polar 
coordinates  XFIELD,  RFIELD,  and  THETA. 

Tne  major  part  of  the  program  consists  of  a  DO  loop  within 
which  the  axial,  radial,  and  tangential  velocities  due  to  the  N 
sources  and  doublets  are  calculated  and  summed.  A  test  is  made 
to  determine  whether  the  field  point  is  ahead  of  the  Mach  cone 


from  the  Ith  source  origin,  TX ( I ) .  If  so,  all  remaining  perturba¬ 
tion  velocities  are  equal  to  zero  and  no  further  calculations  are 
performed  within  the  loop.  At  the  end  of  the  subroutine,  the 
velocities  are  resolved  back  into  the  directions  of  the  body 
coordinate  system. 

The  variables  in  the  subroutine  parameter  list  are: 


T 

TC 

TX 


N 

XP 

Y 

ZP 

U1 

VI 

W1 

BETAL 

BODYL 

SUMK 

SUMKD 


array  containing  the  source  strengths 
array  containing  the  doublet  strengths 
array  containing  the  x  locations  of  the  origins 
of  the  singularities;  positive,  measured  aft  from 
tip  of  nose 

number  of  line  sources  and  doublets 
x  coordinate  of  field  point  in  body  system 

y  coordinate  of  field  point  in  body  system 

z  coordinate  of  field  point  in  body  system 

u/V^  perturbation  velocity  at  field  point; 
body  system 

v/V  perturbation  velocity  at  field  point; 

00 

body  system 

w/V  perturbation  velocity  at  field  point; 

CO 

body  system 

value  of  6  used  in  the  velocity  calculation 

length  of  body 

sum  of  the  source  strengths 

sum  of  the  doublet  strengths 


Called  by: 
RESVEL 


C -88  Subroutine  VELOMP 


Subroutine  VELDMP  adds  to  the  velocities  at  a  point  the  con¬ 
tributions  due  to  the  angular  motion  of  the  store.  This  routine 
is  called  only  if  NDAMP^O.  For  each  control  point  the  moment  arm 


trrrre^sx-: 
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I 


relative  to  the  moment  center  is  computed  and  the  velocities  due 
to  p,  q,  and  r  are  computed  as  follows. 


u 


i 


w . 


-  — 3_  ZPT.  -  — 
V  i  V 


~~  (XPTV  -  XMOM) 


v  (XPTi  -  XMOM) 


YPT. 

l 


ZPT  . 

l 


YPT  . 

l 


A  listing  of  the  routine  is  presented  in  Figure  C-l(jjj)  of  this 
report.  The  descriptions  of  the  parameters  in  the  argument  list 
follow: 


UT , VT , WT  arrays  containing  the  velocities  to  which  the 

components  due  to  rotational  motion  are  added 


XPT , YPT , ZPT  arrays  containing  the  control  points  at  which  the 

velocities  are  computed  (store  body  or  empennage 
coord inates) 


NC  OMPT 

XMOM 


VS TORE 

VAR(N) 

N=l,2, 


number  of  control  points 

location  of  moment  center  in  coordinate  system  of 
control  points 

V  ,  store  free-stream  velocity 

00  J 

S 

K,  n,  C,  p,  q,  r,  5,  n,  S,  'V ,  0,  $  respectively 


! 


l?n 


Called  by: 

SF0RC2,  DEM0N2 ,  SPECPR,  BDYPR 

C-89  Subroutine  VELNOR 

Subroutine  VELNOR  calculates  the  perturbation  velocities 
induced  by  the  empennage  fin  panels  and  body  interference  panels 
using  the  superposition  scheme  for  the  influence  of  four  corners 
(see  Appendix  A  of  Reference  5) .  VELNOR  returns  the  velocities 
UP,VP,WP  in  empennage  reference  coordinate  system.  A  description 
of  the  methods  and  equations  used  in  this  routine  are  found  in 
Appendix  A  of  Reference  5.  A  listing  of  the  routine  is  presented 
in  Figure  C-l(jjj)  of  this  report.  The  description  of  the 
parameters  in  the  argument  list  follows: 

XX,YY,ZZ  coordinates  of  the  control  point  at  which  the 

influence  of  panels  II  through  IF  are  to  be  summed. 
Point  is  in  empennage  reference  axes. 


Subroutine  references: 

ROTBW ,  P.OTFW ,  ROTWB ,  ROTWF,  VELO 

Called  by: 

CRFWBD ,  SPECPR,  BDYPR 


C-90  Subroutine  VELO 

Subroutine  VELO  calculates  the  influence  of  the  basic  semi¬ 
infinite  triangles  which  are  under  constant  loading.  It  is  com¬ 
puted  under  the  assumption  of  constant  U  difference,  u./Vc  . 

+  s 

The  coordinate  system  used  here  is  the  coordinate  system  associated 
wi  th  the  triangle  under  consideration.  The  descriptions  and  equa¬ 
tions  used  here  are  essentially  the  same  as  those  used  in  VEL02 
and  described  in  Appendix  II  of  Reference  9.  A  listing  of  the 
routine  is  presented  in  Figure  C-l(lll)  of  this  report. 


Called  by: 

VELNOR 

C-91  Subroutine  VEL02 

Subroutine  VEL02  calculates  the  aerodynamic  influence 
functions  of  a  semi-infinite  triangle  associated  with  a  constant 
u-velocity  panel,  as  described  in  Section  II-2.1  of  Appendix  II  of 
Reference  9.  The  influence  functions  relate  the  panel  singularity 
strength  to  the  perturbation  velocities  induced  by  the  triangle  at 
a  given  point.  They  occur  as  the  coefficients  of  1/tt(u+/Vot)  in 
Equations  (II-4)  and  (11-12)  of  Reference  9.  A  listing  of  the 
subroutine  is  presented  in  Figure  C-l(mmm)  and  a  flow  chart  of  the 
equivalent  routine  in  Program  I  in  Figure  A-15  in  Volume  III.  The 
coordinate  system  used  by  the  subroutine  is  shown  in  Figure  3  of 
Reference  9. 

At  the  beginning  of  the  subroutine  the  quantity  BETA  is  set 
equal  to  BETANU  or  to  BETAOL  depending  on  the  values  of  INUMCH 
and  PYPNL  (Section  C-52  of  this  report  should  be  referred  to 
for  further  details  concerning  this  choice).  Next,  the  logical 
variable  FELT  is  initialized  to  TRUE  and  a  test  is  performed  to 
determine  if  the  field  point  is  located  ahead  of  the  influencing 
.riangle  (X  _<  0).  If  so,  the  influence  functions  U,V,W  are  set 
to  zero,  FELT  is  set  to  FALSE,  and  control  is  returned  to  the 
calling  program. 

Next,  the  variable  PYPNL  is  tested  and,  if  the  triangle  is  on 
the  pylon,  a  transformation  is  performed  which  rotates  the  triangle 
into  the  VEL02  x,y  plane.  After  the  calculation  of  the  logical 
variable  INSIDE  and  other  frequently  used  quantities,  the  remainder 
of  the  subroutine  consists  of  four  major  sections  in  which  the 
influence  function  terms,  FI,  F2,  F4,  F5,  and  F7,  are  calculated. 
Each  section  corresponds  to  a  condition  of  the  slope,  EML,  of  the 
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leading  edge  associated  with  the  sem i- i n f i ni te  triangle.  The  sub¬ 
routine  requires  that  EML  _>  0  and  this  is  accounted  for  in  the 
VEL02  calling  programs.  The  four  leading-edge  conditions  are 
described  fully,  with  accompanying  sketches  in  Section  II-2.1 
of  Reference  9.  All  equation  numbers  mentioned  in  the  following 
paragraphs  are  from  Section  II-2.1  of  Reference  9. 

The  first  section  of  the  subroutine  corresponds  to  a  subsonic 
leading  edge,  BTSQ  <  EMLSQ.  Equation  ( 1 1  —  5 )  is  used  if  the  point 
is  inside  the  Mach  cone  from  the  origin,  INSIDE=TRUE.  If  not, 

U , V,  and  W  are  set  to  zero.  In  this  section  as  in  the  remaining 
ones,  discontinuities  in  some  of  the  equations  may  occur  for 
certain  field  point  locations.  In  such  cases  the  affected 
influence  function  is  set  to  zero.  The  quantities  YYEDGE  and 
TLRNC  ,  as  well  as  Y  and  Z,  are  used  to  test  the  singularity 
locations. 

If  BETASQ= EMLSQ,  the  leading  edge  is  a  sonic  leading  edge. 

The  equations  used  are  the  same  as  for  the  subsonic  case  except 
for  the  function  F2,  which  is  given  by  Equation  ( 1 1 — 7 ) .  If  the 
point  lies  outside  the  Mach  cone  from  the  origin,  the  influence 
functions  equal  zero. 

The  third  section  of  the  subroutine  is  used  if  the  triangle 
leading  edge  is  supersonic,  BTSQ  >  EMLSQ.  Equations  (II-5)  and 
(II-9)  calculate  the  terms  of  the  influence  functions  if  INSIDE= 
TRUE.  If  not,  a  second  test  is  performed  and  Equation  ( I I — 1 1 )  is 
used  if  the  point  is  inside  the  Mach  cone  whose  origin  is  on  the 
leading  edge  at  the  field  point  y  location,  otherwise  the  func¬ 
tions  U , V, W  are  set  to  zero. 

The  fourth  section  of  the  subroutine  is  executed  if  the 
leading  edge  is  unswept,  EML=0 .  For  this  special  case  the 
perturbation  velocity  equations  are  given  by  (11-12).  If 
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INSIDE=TRUE,  the  influence  function  terms  are  given  by  ( 1 1  —  5 ) 
and  (11-13).  For  points  outside  the  Mach  cone  from  the  origin  but 
inside  the  cone  from  the  leading  edge  Equation  (11-14)  is  used; 
otherwise,  U,V,W  are  set  to  Eero. 

The  last  part  of  the  subroutine  calculates  the  functions  U,V,W 
from  the  component  terms,  in  the  case  of  a  leading  edge  with 
positive  sweep,  using  Equation  ( 1 1  —  4 )  .  If  the  triangle  is  located 
on  the  pylon,  V  and  W  are  rotated  back  into  pylon  orientation. 

Called  by: 

VELBD2,  VELPP2 ,  VELWP2 

C-92  Subroutine  VEL0T2 

Subroutine  VE LOT 2  calculates  the  aerodynamic  influence  func¬ 
tions  of  a  semi-infinite  triangle  associated  with  a  wing  or  pylon 
thickness  panel,  as  described  in  Section  II-2.2  of  Appendix  II  of 
Reference  9.  The  influence  functions  relate  the  panel  source 
strength  to  the  perturbation  velocities  induced  by  the  triangle 
at  a  given  poin*-.  They  occur  as  the  coefficients  of  1/Tr(tan  6) 
in  Equations  (11-15)  and  (11-16)  of  Reference  9.  A  listing  of 
the  subroutine  is  presented  in  Figure  C-l(ooo)  of  this  report.  The 
subroutine  is  very  similar  in  logic  to  subroutine  VEL0T1  #hich  is 
described  in  detail  in  Section  A-51  and  represented  by  a  flow 
chart  in  Figure  A-15  in  Volume  III.  Additional  logic  has  beer, 
incorporated  to  use  3QL  for  pylons  and  the  wing  shock  value,  3V» 
for  wing  thickness  panels. 

In  subroutine  VEL0T2,  three  component  terms,  FI,  F2,  and  F5, 
need  to  be  calculated  in  order  to  determine  the  influence  func¬ 
tions  UTH,  VTH ,  and  WTH.  Referring  to  Sections  II-2.1  and  II-2.2 
of  Reference  9,  function  FI,  F2,  and  F5  are  specified  in  Equation 
(II-5)  for  the  case  of  a  subsonic  leading  edge,  in  Equations 
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( 1 1  —  5 )  and  ( 1 1  — 7 )  for  a  sonic  leading  edge,  and  in  Equations 
(II-5),  { 1 1  —  9 ) ,  and  ( 1 1  —  1 1 )  for  a  supersonic  leading  edge.  For 
the  special  case  of  an  unswept  leading  edge  (EML=0),  the  general 
perturbation  velocity  equations  are  given  by  (11-16).  If  the 
given  point  lies  inside  the  Mach  cone  from  the  origin  of  the 
triangle,  function  FI  is  given  by  Equation  (11-13),  function  F5 
by  Equation  ( 1 1  —  5 ) ,  and  function  F?  by  Equation  (11-17).  If  the 
point  lies  outside  the  Mach  cone  from  the  origin  but  inside  the 
Mach  cone  from  the  triangle  leading  edge  at  the  field  point  y 
location,  functions  FI,  F2,  and  F5  are  given  by  Equation  (11-16). 

In  all  leading  edge  cases,  the  function  FI,  F2,  and  F5  are  singular 
for  certain  field  point  locations.  When  this  occurs,  the  affected 
influence  function  is  set  to  zero.  All  influence  functions  are  set 
equal  to  zero  if  the  point  lies  in  the  plane  of  the  sem i - i n f i n i te 
triangle  ( ZTH=0) . 

A  table  equating  the  algebraic  and  program  notation  for 
variables  in  common  for  subroutine  VEL0T2  is  presented  in  Appendix 
D-2  of  this  report.  One  should  note  that  the  influence  functions, 
U,V,W  and  the  point  coordinates,  YS,ZS,  in  common  VELARG  are 
named  UTH ,  VTH ,  WTH,  YTH,  and  ZTH,  respectively,  in  subroutine 
VE  LOT  2 . 

Called  by: 

VELWT2,  VELPT2 


C-93  Subroutine  VELPP2 

Subroutine  VELPP2  calculates  perturbation  velocities  at  a 
field  point  due  to  the  constant  u-velocity  panels  on  the  pylon 
according  to  methods  described  in  Sections  5.6  and  3.3  of 
Reference  2.  A  listing  of  the  subroutine  is  presented  in 
Figure  C-l(ppp) .  The  wing  coordinate  system  is  shown  in 
Figure  7  of  Volume  II. 
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At  the  beginning  of  the  subroutine,  the  logical  variable  PYPNL 
is  set  equal  to  TRUE,  indicating  to  subroutine  VEL02  that  calcula¬ 
tions  are  to  be  performed  for  a  pylon  panel.  The  quantities  YD  I R 
and  YIMG  are  calculated  and  the  velocity  totals,  UP,VP,WP  are 
initialized  to  zero.  The  remainder  of  the  subroutine  consists 
of  a  double  DO  loop  in  which  the  aerodynamic  influence  coefficients 
and  induced  velocities  at  the  specified  field  point  are  calculated 
for  a  single  panel  corner.  The  outer  loop  index  runs  over  the 
corner  points  in  a  spanwise  row,  the  inner  loop  index  over  the 
points  in  a  chordwise  row.  The  remaining  flow  of  calculations  in 
this  routine  follow  closely  those  in  VELPP1  in  Section  A-52  of 
Volume  III  for  corner  1  and  its  corresponding  flow  chart  in 
Figure  A-16.  Only  the  additional  loops  over  the  corners  mentioned 
above  to  sum  results  have  been  added. 

The  coordinates  of  the  field  point  are  given  as  formal  param¬ 
eters  in  the  wing  coordinate  system.  The  subroutine  locates  the 
field  point  relative  to  the  influencing  corner  in  the  coordinate 
system  associated  with  subroutine  VEL02  and  illustrated  in 
Figure  7  of  Reference  2.  At  the  beginning  of  the  inner 
loop  two  tests  are  performed  to  eliminate  possible  unnecessary 
calculations:  first,  if  the  field  point  is  located  ahead  of  the 

corner,  the  influence  of  that  corner  and  all  of  the  remaining 
corners  in  the  chordwise  row  are  zero;  second,  if  the  net 
strength  associated  with  the  corner  is  zero,  the  perturbation 
velocity  is  zero  and  calculation  of  the  influence  coefficients 
is  omitted. 

The  remainder  of  the  inner  loop  calculates  the  corner  influence 
functions  by  means  of  subroutine  VEL02.  Unless  the  pylon  is  loca¬ 
ted  under  the  fuselage  centerline  (CENTER=TRUE) ,  the  influence  of 
the  image  of  the  corner  with  respect  to  the  aircraft  vertical  plane 
of  symmetry  is  also  calculated.  Separate  sections  of  the  subrou¬ 
tine  performs  these  calculations  depending  on  the  sign  of  the 
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Subroutine  references: 
VEL02 

Called  by : 

RESVEL 


C  -94  Subroutine  VELPTe 

Subroutine  VELPT2  calculates  perturbation  velocities  at  a 
field  point  due  to  the  pylon  thickness  distribution  according  t. 
methods  described  in  Section  3.3  of  Reference  2.  The  program 
logic  is  very  similar  to  that  of  subroutine  VELPP2  which  calcu¬ 
lates  velocities  induced  by  the  pylon  constant  u-velocity  panel 
Subroutine  VELPP2  has  been  described  in  detail  in  Section  C-93. 
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C  -95  Subroutine  VELWP2 


Subroutine  VELWP2  calculates  perturbation  velocities  at  a 
field  point  due  to  the  wing  constant  u-velocity  panels  according 
to  methods  described  in  Sections  5.6  and  3.3  of  Reference  2. 

The  program  logic  is  very  similar  to  that  of  subroutine  VELPP2 
which  calculates  velocities  induced  by  the  pylon  constant 
u-velocity  panels.  Subroutine  VELPP2  has  been  described  in 
detail  in  Section  C-93.  Only  'hose  details,  therefore,  in  which 
subroutine  VELWP2  differs  fro  subroutine  VELPP2  are  included  in 
this  description.  A  listing  of  the  subroutine  is  presented  in 
Figure  C-l(rrr)  of  this  report. 

At  the  beginning  of  the  subroutine  the  logical  variable  PYPNL 
is  set  equal  to  FALSE,  indicating  to  subroutine  VEL02  that  calcu¬ 
lations  are  to  be  performed  for  a  wing  rather  than  a  pylon  panel. 
The  coordinates  of  the  field  points  are  given  as  formal  parameters 
in  the  wing  coordinate  system.  The  point  is  located  relative  to 
the  influencing  corner  in  the  VEL02  coordinate  system  using  the 
same  transformation  scheme  as  in  VELPP2.  However,  wing  dihedral 
effects,  if  nonzero,  are  accounted  for  in  the  transformations. 
Variables  ZDIHED,  CPHI,  and  SPHI  are  used  for  this  purpose. 
Finally,  since  the  image  panel  corner  is  always  present  on 
the  right  wing  panel,  no  test  for  symmetry  (as  in  the  case  of 
a  centered  pylon)  is  necessary  in  this  subroutine.  Velocities 
/ire  calculated  and  summed  for  all  corner  points  associated  with 
the  wing  constant  u-velocity  panels. 

The  description  of  the  parameters  in  the  argument  list  follows: 

XX , YY , Z Z  coordinates  of  the  field  point  in  the  wing 

reference  axes  at  which  the  wing  panel  influences 
are  computed 
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Subroutine  references: 
VEL02 

Called  by: 

RESVEL 


C-96  Subroutine  VELWT2 

Subroutine  VELWT2  calculates  perturbation  velocities  at  a 
given  field  point  due  to  the  wing  thickness  distribution,  accord¬ 
ing  to  methods  described  in  Section  3.3  of  Reference  2.  The 
program  logic  is  very  similar  to  that  of  the  corresponding  sub¬ 
routine  VELPP2,  which  calculates  velocities  induced  by  the  pylon 
constant  u-velocity  panels.  Subroutine  VELPP2  has  been  described 
in  detail  in  Section  C-93.  Only  those  details,  therefore,  in 
which  subroutine  VELWT2  differs  from  subroutine  VELPP2  are 
included  in  this  description.  A  listing  of  the  subroutine  is 
presented  in  Figure  C-l(sss)  of  this  report. 

At  the  beginning  of  the  subroutine  the  logical  variable  PYPNL 
is  set  equal  to  FALSE,  indicating  to  subroutine  VEL0T2  that 
calculations  are  to  be  performed  for  a  wing  rather  than  a  pylon 
panel.  The  coordinates  of  the  field  point  are  given  as  formal 
parameters  in  the  wing  coordinate  system.  The  point  is  located 
relative  to  the  influencing  corner  in  the  VEL0T2  coordinate 
system  using  the  same  transformation  scheme  as  in  VELPP2. 

However,  the  corner  coordinate  arrays  which  define  the  wing 
source  panel  corners  are  used  in  the  transformations.  Also, 
wing  dihedral  effects,  if  nonzero  are  accounted  for.  Variables 
ZDEHED ,  CPHS,  and  SPHS  are  used  for  this  purpose.  Subroutine 
VEL0T2  is  called  to  calculate  the  corner  influence  functions. 
Since  the  image  panel  corner  is  always  present  on  the  right 
wing  panel,  no  test  for  symmetry  (as  in  the  case  of  a  centered 
pylon)  is  necessary  in  this  subroutine. 
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Finally,  the  influence  coefficients  for  the  Ith  corner  are 
multiplied  by  the  net  strength  associated  with  that  corner, 
THTNET(I),  to  obtain  perturbation  velocities  induced  at  the 
field  point.  These  velocities  are  calculated  and  summed  for 
all  corner  points  associated  with  the  wing  source  panels. 

The  description  of  the  parameters  in  the  argument  list  follows: 

XX,YY,ZZ  coordinates  of  the  field  point  in  the  wing 

reference  axes  at  which  the  wing  panel  influences 
are  computed 

Subroutine  references: 

VEL0T2 

Called  by: 

RF3VEL 


C -97  Function  VNORM 

Function  VNORM  computes  the  velocity  normal  to  the  surface  of 
the  Ith  source  panel.  The  panel  is  assumed  to  have  velocities 
U , V, W  at  the  control  point  in  the  source  panel  reference 
coordinate  system  in  Figure  13  of  Volume  II.  The  panel  is 
oriented  at  angles  6  and  6  relative  to  the  reference  axes.  A 
listing  of  the  routine  is  presented  in  Figure  C-l(ttt)  of  this 
report. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 
I  panel  index  of  source  panel 

'J  ,  V ,  W  arrays  containing  the  orthogonal  velocity  com¬ 

ponents  in  the  source  panel  reference  coordinate 
system 
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THET 


array  containing  the  source  panel  inclination 
angles,  u 


DELTA  array  containing  the  source  panel  incidence 

a  ng  1  e  s ,  6 


C-98  Subroutine  VOTEX 

Subroutine  VOTEX  computes  the  perturbation  velocity  components 
at  the  vortex  locations  accounting  for  mutual  interference  effects 
and  the  presence  of  an  elliptical  cross  section.  A  description  of 
the  methods  and  equations  used  in  this  routine  are  found  in 
Section  5.1  of  Appendix  I  of  Reference  5.  A  listing  of  the 
routine  is  presented  in  Figure  C-l(ttt)  of  this  report.  The 
descriptions  of  the  parameters  in  the  argument  list  follow: 

NV  number  of  vortices 

XV ( I ) , YV ( I )  y  and  z  coordinates  of  the  Ith  vortex  path 
GV(I)  Y,  strength  of  the  Ith  vortex 

VV(I),WW(I)  velocity  induced  at  the  vortex  location  of  the  Ith 
vortex  in  the  y  and  z  coordinate  directions 

Subroutine  references: 

DSDZ ,  DZDS ,  D2SDZ2 ,  Z 


Called  by: 


C -99  Subroutine  VPATH 


Subroutine  VPATH  organizes  the  data  transfer  from  TRJTRY  to 
VPATHL  when  vortices  are  present  with  multi-empennage  configura¬ 
tions.  A  listing  of  the  routine  is  presented  in  Figure  C-l(ttt) 

of  this  report.  The  descriptions  of  the  parameters  in  the 
argument  list  follow: 

NOUTG  print  control  index;  0=no,  l=yes 

NVRTX  number  of  vortices 

VRTMAX  maximum  vorticity;  see  input  item  23  to  Program  II 

Subroutine  references: 

VPATHL 

Called  by: 

TRJTRY 

C-100  Subroutine  VPATHL 

Subroutine  VPATHL  sets  up  and  computes  the  paths  and  vortex 
induced  crossflow  velocities  at  specified  field  points  for  a  set 
of  vortices  in  the  presence  of  a  body  in  a  nonuniform  flow  field. 
Slender  body  theory  is  used  in  the  computation  of  crossflow 
velocities.  The  effect  of  the  nonuniform  flow  field  is  incor¬ 
porated  by  averaging  the  velocities  around  a  ring  of  panels  on  the 
body  to  a  single  value  at  the  centerline.  The  present  program  is 
an  adaptation  of  the  methods  and  equations  described  in  Appendix  I 
of  Reference  5.  The  routine  is  specialized  for  elliptic  bodies 
only  and  adapted  for  nonuniform  flow  fields.  The  coordinate 
system  used  here  is  the  body  coordinate  system  with  the  x-axis 
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along  the  body  centerline  starting  at  the  nose  tip,  y-axis  to  the 
right  when  looking  forward,  and  z-axis  up.  A  listing  of  the 
routine  is  presented  in  Figure  C-l(uuu)  of  this  report.  The 
descriptions  of  the  parameters  in  the  argument  list  follow: 

XIP  array  of  x-stations  used  for  integration  steps 

NVV  number  of  vortices 

NIP  number  of  x-stations  between  which  path  integration 

is  computed 

E5  integration  tolerance;  set  E5=0.001 

VRTMAX  maximum  vorticity;  see  input  item  23  to  Program  II 

LPRT  logical  print  control;  .T.=yes,  .F.=no 

XC P, YC P, ZCP  field  points  at  which  vorticity  is  computed 

(not  used  since  NCP=0) 

VC P , WC P  arrays  of  crossflow  velocities  computed  at  above 

field  points  (not  used  since  NCP=0) 

NCP  number  of  field  points  at  which  velocities  are 

to  be  computed  (set  to  zero  in  VPATH) 

Subroutine  references: 

DASCRU,  ELLS  HP,  VVELS 

Called  by: 

TRJTRY 
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C-101  Subroutine  VVELS 


Subroutine  VVELS  computes  the  perturbation  velocity  components 
due  to  NV  external  vortices  and  their  images  inside  a  body  with 
elliptic  cross  section.  This  routine  is  used  to  compute  the  influ¬ 
ence  of  vortices  wi th  known  paths  and  strengths  at  specified  con¬ 
trol  points  by  DEM0N2.  The  crossflow  velocities,  v  and  w,  are 
added  to  the  input  values.  The  methods  and  equations  used  in 
this  routine  are  described  in  Sections  5.1  and  5.2  of  Appendix  I 
of  Reference  5.  A  listing  of  the  routine  is  presented  in 
Figure  C-l(vvv)  of  this  report.  A  description  of  the  parameters 
in  the  argument  list  follow. 

NV  number  of  vortices 

YY,ZZ  y  and  z  coordinates  in  crossflow  plane  of 

control  point 

VX ( I ) , VY ( I )  y  and  z  coordinates  of  path  of  Ith  vortex  at 
x-station 

G(I)  Y,  strength  of  Ith  vortex 

AB , BB  vertical  and  horizontal  semi-axes  of  elliptic 

body  cross  section 

V,W  crossflow  velocities,  v  and  w,  at  control  point 

with  vortex  contribution  added 

VRTMAX  maximum  vorticity;  see  input  item  23  to  Program  II 

Subroutine  references: 

DSDZ  ,  Z 
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Called  by: 

DEM0N2 ,  VPATHL 

C-102  Subroutine  VWAVG 

Subroutine  VWAVG  computes  the  average  of  the  externally 
applied  velocities  for  all  the  source  panels  in  a  given  ring 
of  panels  on  the  store  body.  These  velocity  properties  are 
used  by  the  slender  body  theory  calculations  in  VPATHL  as  the 
average  nonuniform  flow  field  seen  by  the  external  vortices. 

For  a  given  ring  the  V,W  and  X  values  of  the  control  points  are 
summed  and  divided  by  the  number  of  panels  on  a  ring  to  find  the 
average  values.  The  computed  averages  are  stored  in  labeled 
common  WDY1.  A  listing  of  the  routine  is  presented  in  Figure 
C-l(vvv)  of  this  report.  A  description  of  the  parameters  in 
the  argument  list  follow. 

V , W  arrays  of  externally  applied  velocities  at  source 

panel  control  points 

X  array  of  axial  stations  of  source  panel  control 

points 

NRING  number  of  rings  of  panels 

I ROW ( J )  number  of  panels  in  the  Jth  ring  of  panels 

Called  by: 

SF0RC2 

C-103  Subroutine  VXYZ 

Subroutine  VXYZ  computes  the  velocity  components  due  to  the 
free  stream  from  the  translation  of  the  separating  store  body 
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center  of  gravity.  It  computes  three  functions  used  by  the  store 
force  calculation  routines  in  adding  the  influence  of  the  free 
stream.  It  computes  the  direction  cosine  matrix,  [ DC ] ,  by 
calling  DIRCOS.  It  then  computes  the  relative  velocity  components 
and  rotates  them  into  the  store  coordinate  system  through  INTOST. 


[DC]  =  f<4»,0,$) 
if  NGAM  =  1, 

[DC]  = 


' 

\p  -  tan  ^ 

f  n  1 

,  0  -  tan  ^ 

f  k  ] 
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h 

^C0SaCR  + 

lVooCOSaCR  +  V 

fv 

fvf  1 

X 

f 

S 

V 

=  [DC] 

V 

y 

h 
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V 
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,  where  V  =0 


V  =  V  sina _ 

C  00  CR 


or  if  NGAM  =  0, 


V,  =  V  cosa__  +  £ 
£  oo  CR 

vn=  n 

VC  =  VcosinaCR+  C 


The  remaining  terms  computed  express  the  above  quantities  in  terms 
of  angles  required  by  various  routines.  A  listing  of  the  routine 
is  presented  in  Figure  C-l (www)  of  this  report.  A  description 
of  the  remaining  parameters  computed  are  primarily  found  in 
Section  D-2  of  Appendix  D  under  the  definitions  of  labeled  commons 
BVELFS  and  PARAM. 

Subroutine  references: 

DIRCOS,  INTOST 

Called  by: 

TRJTRY 
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C-104  Subroutine  XVSR 


Subroutine  XVSR  performs  the  search  of  the  tabulated  data  of  a 
single  shock  shape  and  linearly  interpolates  between  values  to 
find  the  value  of  XS  for  the  given  value  of  RS.  In  addition,  a 
rotation  of  the  shock  shape  is  made  during  the  interpolation  to 
account  for  angle  of  attack  effects.  A  listing  of  the  routine  is 
presented  in  Figure  C-l(www)  of  this  report.  The  descriptions 
of  the  parameters  in  the  argument  list  follow: 

RSHK,XSHK  arrays  containing  the  R  and  X  values  of  the 

table  describing  a  single  nonlinear  shock 
shape 

NSHK  number  of  values  in  shock  shape 

RS  input  value  of  R  at  which  the  value  of  XS  is  to 

be  computed 

XS  output  interpolated  value  of  X  locating  shock 

ALP  resultant  angle  through  which  shape  is  rotated 

before  interpolation 

Called  by: 

INLB  ET,  XVSRT 

C-105  Subroutine  XVSRT 

Subroutine  XVSRT  interpolates  for  the  X-location  of  the 
nonlinear  shock  shape  versus  the  radial  distance  from  the  center- 
line  and  the  meridional  angle  around  a  noncircular  body.  The 
interpolation  may  also  include  the  rotation  of  the  shock  shape 
to  account  for  the  effects  of  angle  of  attack.  A  listing  of  the 
routine  is  presented  in  Figure  C-l(www)  of  this  report. 


147 


1 


This  routine  makes  two  assumptions  with  regard  to  symmetry  of 
the  shock  shape.  On  routine  entry,  the  Y  and  Z  coordinates  are 
converted  to  R  and  meridional  angle,  0,  measured  from  the  z-axis, 
negative  down.  If  the  parameter  LSYM=.true.,  it  is  assumed  that 
the  tabulated  shock  shape  was  generated  at  u  =  C°,  between  0°  <  9  < 
90°,  and  that  both  right-left  and  top-bottom  symmetry  exist.  0  is 
then  converted  to  the  equivalent  angle  in  the  quadrant  between  0° 
and  90°.  if  LSYM  =  . f a  1 se . ,  it  is  assumed  that  the  tabulated  shock 
shape  was  generated  at  angle  of  attack  and  the  computed  shape  has 
the  u  effect  already  in  it.  Only  right-left  symmetry  is  presumed. 

9  is  then  converted  to  an  equivalent  angle  between  0°  and  180°. 

Three  options  are  available  for  computing  the  axial  location 
of  the  shock  shape  depending  on  the  number  of  shock  traverses 
used  in  generating  the  shape.  If  NSHOCKjCO,  the  linear  theory 
Mach  wave  corrected  for  angle  of  attack  and  roll  is  used  to 
compute  XS .  If  NSHOCK=l,  the  shape  is  constant  everywhere  and 
only  one  traverse  is  interpolated  in  and  corrected  for  angle  of 
attac.  If  NSHOC K>1 ,  the  x-value  at  the  two  closest  shock 
traverses  are  computed,  and  the  shock  location  XS  is  computed 
by  linear  interpolation  in  0. 

The  descriptions  of  the  parameters  in  the  argument  list  follow: 

XS  computed  x-value  of  shock  shape  relative  to 

body  nose 

YS,ZS  y,z  coordinates  of  point  at  which  shock  is  com¬ 

puted  in  body  source  panel  coordinates 

NSHK  array  of  the  number  of  points  in  each  tabulated  shock 

for  each  meridional  location 


PHIS 


array  of  meridional  angles  of  each  shock  traverse 


NSHOCK 


number  of  meridional  locations  of  shock  traverses 


XSHK,RSHK  x  and  r  values  of  tabulated  shock  shape  for  all 

meridional  angle  of  traverse 


ALP  angle  of  attack  which  shock  must  be  rotated  through; 

u  =  (uCR  -  SI BCR) (1  -  O 


PHIR 

angle  of  roll  of  body 

LSYM 

symmetry  option:  .true. 

-  right-left 

and  top-bottom 

symmetry 

•false. 

-  right-left 

symmetry  only 

Subroutine  references: 
XVSR 


Called  by: 

BVARIA,  ELRFLB ,  ELRFLW 

C-106  Subroutine  Z 

Subroutine  Z  calculates  the  sigma  value  in  the  transformed 
(circle)  plane  for  a  given  tau  in  the  physical  plane  for  an 
elliptical  body  with  wings.  The  methods  and  equations  used 
here  are  described  in  Section  5.1  of  Appendix  I  of  Reference  5. 

A  listing  of  the  routine  is  presented  in  Figure  C-l(xxx)  of  this 
report. 

Subroutine  references: 

DBLU 

Called  by: 

PITROL,  VOTEX,  VVELS 
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C- 107  Subroutine  ZIMAGE 


Subroutine  ZIMAGE  organizes  the  calculation  of  image  store 
induced  velocities  at  the  control  points  on  the  fins  of  the 
separated  store.  This  routine  is  called  by  SEMFOR  when  the 
circular  store  option  is  used.  The  equations  used  in  calcula¬ 
ting  the  source  and  doublet  induced  velocities  are  presented  in 
Appendix  A  of  Reference  2.  A  listing  of  the  routine  is  pre¬ 
sented  in  Figure  C-l(xxx). 

At  the  beginning  of  the  routine  the  free-stream  axial  and  total 
Mach  numbers  as  seen  by  the  store  are  calculated.  The  shoulder 
location  of  the  separated  store  is  defined.  If  a  wing  image 
store  is  present,  IMSTOR^O,  the  fin  control  point  is  located 
relative  to  the  image  store  and  other  quantities  used  in  the 
image  store  velocity  field  calculation  are  determined.  If 
fuselage  image  stores  are  present,  IMFSTR^O,  similar  quantities 
are  calculated. 

The  next  part  of  the  routine  calculates  the  wing  image  store 

induced  velocities  at  the  fin  control  point  if  a  wing  image  store 

is  present,  IMSTOR/O.  The  values  of  8  and  6  are  determined  and 

as 

subroutine  ZIMSVL  is  called  to  calculate  the  wing  image  store 
induced  velocities.  The  velocities  to  be  returned  to  SEMFOR  are 
set  equal  to  these  velocities. 

The  next  part  of  the  routine  repeats  the  above  calculation  for 

the  fuselage  image  stores  if  they  are  present,  IMFSTR^O.  The 

values  of  8  and  8  are  calculated  for  the  image  store  and  the 
as 

centerline  image  store.  Two  calls  are  then  made  to  ZIMSVL  to 
calculate  the  velocities  induced  by  these  stores.  The  velocities 
due  to  the  image  store  are  added  to  the  previously  calculated 
velocities  and  those  due  to  the  centerline  store  are  subtracted. 
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The  do  sc  i  i }  >  t  ions  ut  the  j'lir.imrt  er  s  in  th<-  subront  ir.e  .ir  ration’ 

list  f  o 1  low : 

XFP,YFP,ZFP  x  ,  y ,  z,  coord  liuites  of  fin  control  point  in  separated 
store  coordinate  system;  origin  at  store  nose  with 
x  positive  .1  f  t  ,  y  positive  to  t  fie  right,  and  z 
pos it l vc  up 

UIM,VIM,WIM  u,v,w  velocity  components  at  fin  control  point  in 
separated  store  coordinate  system;  u  positive  aft, 
v  positive  to  the  right,  and  w  positive  up 

Subroutine  reference: 

ZIMSVL 

Called  by: 

SEMFOR 


C-108  Subroutine  ZIMSVL 

Subroutine  ZIMSVL  calculates  the  velocities  induced  by  a 
circular  image  store  at  a  fin  control  point  on  the  real  circular 
store.  A  listing  of  the  subroutine  is  presented  in  Figure 
C-l(xxx).  The  equations  programmed  in  this  routine  are  derived 
in  Appendix  A  of  Reference  2 

The  routine  consists  of  two  DO  loops  followed  by  a  summing  up 
of  the  axial,  radial,  and  tangential  velocity  components  and  a 
resolution  of  the  latter  two  into  the  real  store  coordinate 
system . 
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Tin  t  list  1 1  >01 '  i'd  K'li  1  liU'M  tin.'  1  i  i  it-  sourci'  i  r  k  i  w<  •<  ■< :  v>  •  1  u  •  i  •  i  <  ■ ; . 

I  1 1 :  i '  l  <  m  {  A  -  1  5  )  (  ■  1  Refer  cnee  2  .  The  1  i  r  s  t  source  hi.1,  i  '  :: 

:  l-i  .d  'in'  n:i,uii'  store  nose  and  hui'ci'sh  i  v<-  sources  Imv  *  h*  ii 

or  runs  .irwnst  re.iiii,  A  test  in  the  loop  is  made  t.o  determine 

whet  her  a  source  influences  the  field  point  .  If  it  does  not.  ,  a 
*  t  anster  out  of  loop  takes  place-  since  the  following  sources  a  1  so 
cannot  influence  the  field  point  . 

The  second  DO  loop  calculates  the  velocities  induced  by  the  two 
sets  ot  line  doublets  using  Equations  (A-24)  and  ( A—  3  2)  of 
Reference  2.  The  calculation  is  performed  in  a  manner  identical 
to  that  previously  described  for  the  sources. 

Following  the  second  loop  the  axial,  radial,  and.  tangential 
velocities  are  summed  up  and  the  latter  two  transformed  to  v  and  w 
velocities  in  the  store  coordinate  system. 


SD 


" VRAD  Sin"r  + 


V 


TAN 


COS' 


w 


SD 


-V 


RAD 


COS' 


-  V 


TAN 


sin- 


The  descriptions  of  the  parameters  in  the  subroutine  argument 
list  follow: 

NM  number  of  line  sources  or  line  doublets 

XFP  axial  location  of  field  point  relative  to  image 

store  nose 

RFP  radial  location  of  field  point  relative  to  image 

store  longitudinal  axis 
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CTHET , 


cos-'  and  sin  where  is  the  angle  between  the 
STHET,  image  store  z  axis  and  the  line  connecting  the 

store  axis  with  the  field  point 

BETAAL  locaa  1  value  of  used  in  the  line  source 

cl 

ca lcul at ion 

BETASL  local  value  of  used  in  the  line  doublet 

s 

ca 1 cu 1 at  ion 

USD,VSD,WSD  u,v,  and  w  velocity  components  in  the  real  store- 
coordinate  system  induced  at  a  control  point  by 
the  image  store 

FAC  image  store  doublet  multiplicative  factor: 

FAC  =  1.0  for  wing  image 

0  _<_  FAC  1.0  for  circular  fuselage  image  store, 
calculated  in  FREFSH 

FAC  =  0  for  circular  fuselage  centerline  image 
store 

cos-jr  and  sinOr  where  is  the  angle  which  resolves 
the  image  store  induced  velocities  back  into  the 
separated  store  coordinate  system 

Subroutine  reference: 

SDTRMS 

Called  by: 

Z IMAGE 


CTHER , 
STHER 
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Figur 


C— 1 . —  Listing  of  Program  II 
(Pages  155  through  231) 
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Figure  C- 1  (kkk ) 
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Figure  C-2.-  Continued. 
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(d) 

Figure  C-2.-  Concluded. 
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Figure  C-3.-  Concluded 
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Figure  C-5.-  Continued. 
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Figure  C-7.-  Location  of  image  store 
and  reflected  shock  from  fuselage. 


(a) 

Figure  C-8.-  Flow  chart  of  subroutine  NUMACH. 
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Figure  C-9.-  Flow  chart  of  subroutine  RESVEL. 
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(a) 


Figure  C-ll 


Flow  chart  of  subroutine  .SLMFOR 


(c) 

Figure  C-ll.-  Concluded . 
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Figure  C-13.-  Continued. 
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(c) 

Figure  C-13.-  Concluded 
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Figure  C-14 


Flow  chart  of  subroutine  SF0RC2 
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Figure  C-14.-  Concluded. 


APPENDIX  D 


COMMON  BLOCK  DESCRIPTIONS  -  PROGRAM  II 

D-l  Introduction 

The  purpose  of  this  Appendix  is  to  provide  more  detailed 
information  on  the  variables  passed  between  routines  through 
common  blocks  in  Program  II.  This  appendix  will  present  the 
tables  equating  program  notation  to  the  algebraic  notation  and 
variable  descriptions.  The  common  blocks  are  arranged  alpha¬ 
betically.  It  is  followed  by  a  section  detailing  the  special 
usage  of  blank  common.  When  a  description  identifies  an  item 
as  an  input,  consult  Volume  II  of  this  report  for  further 
definitions . 

A  cross-reference  chart  showing  the  routines  and  the  common 
statements  contained  in  each  is  presented  in  Figure  D-l.  Across 
the  top  of  the  chart  are  the  subroutine  names  including  the  main 
program  TRJTRY.  Down  the  side  of  the  page  are  the  common  names. 
The  last  one  is  blank  common. 

D-2  Description  of  Variables  in  Labeled  Commons 

Var.  Engr.  Symbol  and  Description 

COMMON  /BASESG/  FBASE , FSUMK , FSUMKD , RBASE , RSUMK , RSUMKD , SBASE ( 7 ) , 
SSUMK ( 7 ) , SSUMKD ( 7 ) 

FBASE  fuselage  x-station  at  which  base  singularities 

originate,  feet 

FSUMK  strength  of  source  originating  at  fuselage 

base 

FSUMKD  strength  of  doublet  originating  at  fuselage 

base 

RBASE  rack  x-station  at  which  base  singularities 

originate,  feet 
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RSUMK 


RSUMKD 
SBASE  (II 

SSUMK  ( I ) 
SSUMKD (I) 


strength  of  source  originating  at  rack  base 

strength  of  doublet  originating  at  rack  base 

store  x-station  at  which  base  singularities 
originate,  feet 

strength  of  source  originating  at  store  base 
strength  of  doublet  originating  at  store  base 


COMMON  /BFORC/  FBOD (5,5) , XBOD ( 5 ) , I BOD ( 5 ) , LFIN ( 5 ) , NBOD 


FBOD (I , J) 

XBOD ( J) 
IBOD(J) 

LFIN (J) 

NBOD 


elliptic  body  force  coefficients  (Cy,CN,C£, 
Cm/Cn)  acting  on  Jth  body  section  due  only 
to  source  panels 

input  item  16 

index  of  panel  edges  in  axial  direction 
closest  to  value  of  XEOD(J)  for  Jth  body 
section 

logical  indicator  of  presence  of  finned  body 
section  (T)  or  body  alone  section  (F) ;  input 
item  16 

number  of  sections;  input  item  16 


COMMON  /3F0RCE/  CNS3 , CYSB , CLMSB , CLNSB , CLLCB 


CNSB 

(Cn) sb '  total 
coefficient 

store 

body 

normal-force 

CYSB 

( Cy ) SB '  total 
coefficient 

store 

body 

side-force 

CLMSB 

( Cm) S3 '  total 
coefficient 

store 

body 

pitching -moment 

USB 

(Cn) SB'  total 
coef  f icient 

store 

body 

yawing -moment 

CLLSB 

( ) sb >  total 
coefficient 

store 

body 

rolling -moment 

The  forces  and  moments  in  this  common  are  those 
due  to  the  store  body  alone  in  the  presence  of 
the  parent  aircraft  and  do  not  include  any 
carry  over  induced  by  the  presence  of  any 
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empennages.  All  forces  and  moments  act  in 
the  sense  displayed  in  Figure  17  of  Volume  II. 
All  moments  are  about  the  store  moment  center. 


COMMON  /BFORCX/  CLX (50), CMX (50), CNX (50), DXC (50) 

CLX(J)  C^,  store  body  rolling-moment  coefficient  due 

to  Jth  ring  of  panels 

CMX ( J)  Cm,  store  body  pitching-moment  coefficient 

due  to  Jth  ring  of  panels 

CNX(J)  Cn,  store  body  yawing-moment  coefficient  due 

to  Jth  ring  of  panels 

DXC(J)  width  of  Jth  ring  of  panels  in  axial  direction 

Moments  in  this  common  are  those  due  to  the 
store  body  alone  in  the  presence  of  the  parent 
aircraft  and  do  not  include  any  carry  over 
induced  by  the  presence  of  any  empennages. 

All  moments  act  in  the  sense  displayed  in 
Figure  17  of  Volume  II.  All  moments  are  about 
the  store  moment  center. 


COMMON  /BGEOM/  XFUS ( 51 ) , ZFUS ( 5 1 ) , FUSARD ( 5 1 ) , FUSBY ( 51 ) , 
FUSAZ ( 51 )  , XJ  ( 51 )  , PHIK  (33) 


XFUS (I) 

ZI US (I) 

FUSARD (I) 

FUSBY  (I) 
FUSAZ (I) 
XJ  (J) 

PHIK ( J) 


coordinate  of  Ith  station  used  to  define 
body  external  geometric  shape,  feet;  input 
item  18,  Program  I 

zg  coordinate  of  Ith  station  containing 
cambered  offset,  feet;  input  item  19, 

Program  I 

2 

cross  sectional  area  at  Ith  station,  ft  ; 
input  item  22,  Program  I 

by  elliptic  horizontal  semi-axis  (y-direction ) , 
feet;  input  item  23,  Program  I 

az  elliptic  vertical  semi-axis  ( z-direction) , 
feet;  input  item  24,  Program  I 

xg  coordinate  of  Jth  station  used  to  define 
body  panel  corners,  feet;  input  item  32, 

Program  I 

<f>k  polar  angle  defining  meridian  for  Jth  of 
panel  edges,  degrees;  input  item  31,  Program  I 
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COMMON  /BINLET/  N INLET , NINVEL , NTINL , RVI VO , NINBLK , BTINLT , YCPI , 
XINLT , YINLT , ZINI  T , XINLTE , YINLTE , ZINLTE , JINLT (25) 


NINLET 


NINVEL 


NTINL 

RVI  VO 

NINBLK 

BTINLT 

YCPI 


XINLT, 

YINLT, 

ZINLT 

XINLTE, 

YINLTE, 

ZINLTE 


number  of  open  inlet  panels;  input  item  14, 
Program  I 

number  of  additional  panels  to  be  used  in 
velocity  calculations  for  inlet  panels; 
input  item  14,  Program  I 

total  number  of  inlet  panels  to  bo  used  in  a 
given  calculation 

inlet  mass  flow  ratio;  ratio  of  open  inlet 
panel  frontal  area  to  total  inlet  panel  area 

number  of  blocked  inlet  panels;  input  item  14, 
Program  I 

B  associated  with  inlet  panels;  input  item 
29,  Program  I 

y-location  of  inboard  most  edge  of  inlet 
panels 

coordinates  of  outboard  leading  edge  of  inlet 
panels  used  to  locate  center  of  inlet  shock 
propagation 

coordinates  of  outboard  trailing  edge  of  inlet 
panels  used  to  locate  lower  lip  of  inlet  and 
turning  point  of  shock 


JINLT (I) 


fuselage  panel  number  associated  with  Jth 
inlet  panel 


COMMON  /BINSHK/  NIS , XISHLD , EALPI , XCLOSD , MAXSHI , NINL ( 8 )  , PHINL  (  8 )  , 
YINL ( 8 )  , XINL  (  80 )  ,RINL(80) 


NIS  number  of  inlet  shock  traverses;  input  item 

28,  Program  I 

XISHLD  x-stat-ion  at  which  S's  associated  with  inlet 

retrn  to  free  stream 


EALPI  angle  of  attack  correction  factor  for  inlet 

shock  ( =EALPHA ) 

XCLOSD  x-location  of  leading  edge  of  blocked  inlet 

panels 
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MAXSHI 


maximum  number  of  points  in  inlet  shock  tables 
per  traverse  (=MAXSHK) 


NINL(I) 

PHINL(I) 

YINL(I) 

XINL(I) 

RINL(I) 


number  of  points  computed  for  Ith  shock 
traverse 

angle  measured  from  z-axis  below  inlet  of  Ith 
inlet  shock  traverse  positive  counterclockwise 

y- station  of  Ith  inlet  shock  traverse 

table  of  x-values  of  inlet  shock 

table  of  radial  values  of  inlet  shock 


COMMON  /BLKPAN/  COST , SINT , XBTJ , YBTJ , ZBTJ , XC1 , YC1 , ZC1 , XPTI , 
YPTI , ZPTI , COSTI , SINT I , COSD, SIND , LZERO 


COST, SINT 

cos(0j)  and  sin(6j),  cosine  and  sine  of  polar 
angle  of  Jth  influencing  source  panel 

XBTJ 

XPTj  coordinate  of  Jth  influencing  control 
point,  feet 

YBTJ 

YPTj  coordinate  of  Jth  influencing  control 
point,  feet 

ZBTJ 

ZPTj  coordinate  of  Jth  influencing  control 
point,  feet 

XC1 

xB  coordinate  of  Jth  panel  reference  corner, 
feet 

YC1 

yB  coordinate  of  Jth  panel  reference  corner, 
feet 

ZC1 

zB  coordinate  of  Jth  panel  reference  corner, 
feet 

XPTI 

XFTj_  coordinate  of  Ith  influenced  field  point, 
feet 

YPTI 

YFT^  coordinate  of  Ith  influenced  field  point, 
feet 

ZPTI 

ZFT|  coordinate  of  Ith  influenced  field  point, 
feet 

COST I, S INTI 


cos(Oj)  -',nd  -  ’  n  (;  x )  ,  cosine  and  sine  of  polar 
angle  at  Ith  ini  1 jenced  panel  or  field  point 


COSD , SIND 


cos (6^)  and  sin(6j_),  cosine  and  sine  of  panel 
incidence  angle  at  Ir.h  influenced  panel  or 
field  point 

LZERO  PANVEL  angle  calculation  option:  F=yes,  T=no 


COMMON 

BY 

AZ 

R 

S 

PI 

Cl 


/BLK1/  BY , AZ , R, S , P I , Cl 

local  elliptic  store  horizontal  semi-axis 

local  elliptic  store  vertical  semi-axis 

average  of  elliptic  semi-axes;  =  -^(BY+AZ) 

local  fin  span  set  to  horizontal  semi-axis 
(=BY) 

TT 

complex  one:  (=COMPLEX (0 , 1) ) 


COMMON  /BODCOM/  AMACH , TAND , CX , XCOR ( 4 ) , YCOR ( 4 ) , ZCOR ( 4 ) , XI , YI , Z I , 
X J , Z J , BETAO , BETAL , SUBSON , SUPERS 


AMACH 

TAND 

CX 

XCOR (K) 
YCOR (K) 
ZCOR (K) 
XI 

YI 

ZI 

XJ 

ZJ 


Mach  number  used  in  source  panel  influence 
calculation 

tan6j,  tangent  of  incidence  angle  of  Jth 
influencing  panel 

panel  chord  -length,  feet 

x  of  Kth  corner  in  local  panel  system,  feet 

y  of  Kth  corner  in  local  panel  system,  feet 

z  of  Kth  corner  in  local  panel  system,  feet 

x  of  Ith  field  point  in  local  panel  system, 

feet 

y  of  Ith  field  point  in  local  panel  system, 
feet 

z  of  Ith  field  point  in  local  panel  system, 
feet 

x  of  Jth  panel  control  point  in  panel  system, 
feet 

z  of  Jth  panel  control  point  in  panel  system, 
feet 
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BETAO 

BETAL 

SUBSON 

SUPERS 


/m^-T,  Mach  number  constant  corrected  for  body 
nose  or  inlet  shock  location 

/mT-1  ,  local  Mach  number  constant  used  in 
influence  calculation 

subsonic  logical  indicator;  SUBSON  =  AMACH.LT.l 
supersonic  logical  indicator;  SUPERS  =  AMACH.GT.l 


COMMON  /BOPTNS/  JO , J2 , J6 , NFUS , NRADX ( 5 ) ,NFORX (5) , J2TEST, IPRES, ISOLV, 


INLET, 

CCTEST 

I PLOT ( 4 )  , IPRT ( 5 ) , IUVW , XSTART , XWLE , REFA, REFD , REFL , REFX , REFZ 
,  ITMAX , BODL , I Z 1 (12) 

JO 

reference  area  indicator;  input  item  16, 

Program  I 

J2 

body  type  indicator;  input  item  16,  Program  I 

J  6 

body  camber  indicator;  input  item  16,  Program  I 

NFUS 

number  of  body  segments ;  input  item  16,  Program  I 

NRADX (I) 

number  of  points  used  to  define  section  of  Ith 
body  segment;  input  item  16,  Program  I 

NFORX (I) 

number  of  axial  station  on  Ith  body  segment; 
input  item  16,  Program  I 

J2TEST 

parameter  to  specify  body  camber  and  cross 
section  definition 

IPRES 

not  used 

ISOLV 

not  used 

INLET 

logical  inlet  indicator:  True=inlet  panels 
present,  False=no  inlet  panel  present 

I PLOT ( I ) 

not  used 

IPRT(I) 

optional  print  control  parameter,  input  item  14, 
Program  I 

IUVW 

component  velocity  calculation  option;  input 
item  14,  Program  I 

XSTART 

x-station  at  which  pressure  integration  is 
started,  feet 

XWLE 

x-station  at  which  pressure  integration  is 
ended,  feet 
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REFA 

REFD 

REFL 

REFX , REFZ 

CCTEST 
ITMAX 
BODL 
IZ1  (I) 


2 

body  reference  area,  ft  ;  input  item  17,  Program  I 

body  reference  length  used  for  moment  normaliza¬ 
tion,  feet;  input  item  30,  Program  I 

body  length,  feet;  input  item  30,  Program  I 

x,z  coordinates  of  moment  reference  point, 
feet;  input  item  30,  Program  I 

solution  convergence  control  criteria  (=0.0001) 
solution  maximum  number  of  iterations  (=20) 
body  length  over  which  panels  are  laid  out,  feet 
dummy  array,  not  used 


COMMON  /BPHI 1/  ZIP , PHII ,CPHI , SPHI ,C2PHII , S2PHII 


ZIP 

PHII 

CPHI , SPHI 


distance  between  elliptic  store  nose  and  image 
store  nose 

angle  between  fuselage  plane  of  symmetry  and  line 
between  noses  of  real  and  image  stores 

cos  and  sin  4'l,  yj  =  PHII  -  ;,  angle  between 
elliptic  store  vertical  axis  and  line  between 
noses  of  real  and  image  stores 


C2PHI I , S 2 PH I I 

cos  2'ij  and  sin  2$^ 

COMMON  /BSHOCK/ 
EALPHA, CNU0 

NSHK  ( 10 )  , PHIS (10)  , THETN ( 10 )  , MAXSHK , NSHOCK , DBETA , 

, CNU2 , XSHLDR, SHK ( 3) ,XSHK(100) ,RSHK(100) 

NSHK (I) 

number  of  points  used  to  represent  Ith  modified 
shock  shape 

PHIS  (I) 

polar  angle  at  which  Ith  modified  shock  is 
computed,  degrees;  input  item  33,  Program  I 

THETN  (I) 

nose  limited  shock  angle  of  initial  shock  shape 
at  Ith  polar  angle,  degrees 

MAXSHK 

maximum  number  of  points  in  Ith  shock  shape; 
input  item  14,  Program  I 

NSHOCK 

number  of  modified  shock  shape  computed;  input 
item  14,  Program  I 

DBETA 


not  used 


EALPHA 


angle  of  attack  correction  to  shock  shape; 
input  item  15,  Program  I 

CNUO , CNU2  not  used 

XSHLDR  xB  location  of  body  nose  shoulder,  feet; 

input  item  15,  Program  I 

SHK(I)  dummy  array,  not  used 

XSHK (I) , RSHK (I)  arrays  containing  xB  and  rB  locations  ^f 

NSHOCK  sets  of  NSHK(I)  points  representing 
the  modified  nose  shock  shape;  feet 


COMMON  /BSWINT/  IP , XPTIP , YPTIP , ZPTIP , DELTIP , DRDXS , YBS , ZBS , BTNOSN 


IP 


XPTIP, 

YPTIP, 

ZPTIP 


fuselage  source  panel  number  of  first  inter¬ 
section  of  store  nose  shock  with  noncircular 
fuselage  body 

x,y,z  coordinates  in  source  panel  system  of 
panel  IP 


DELTIP 

DRDXS 


YBS, ZBS 


6-j-p,  incidence  angle  of  panel  IP 

dr/dxs,  slope  of  store  nose  shock  at  inter¬ 
section  with  fuselage  in  plane  between 
fuselage  centerline  and  store  nose 

yB,  zB  coordinates  of  intersection  point  of 
store  nose  shock  with  fuselage 


BTNOSN  B,  Mach  number  parameter  computed  from  nose  of 

image  store  to  intersection  of  reflected  store 
shock  from  fuselage  with  store  body  centerline 


COMMON  /BVEL/  BDU ( 2 50 ) , BDV ( 2 50 ) , BDW ( 2 50 ) 

BDU(I),  u,v,w  components  of  velocity  induced  by  elliptic 

BDV(I),  store  body  source  panels  at  empennage  u-velocity 

BDW (I)  control  points.  All  velocities  act  in  the 

direction  of  us,vs,ws  shown  in  Figure  17  of 
Volume  II. 

COMMON  /BVELFS/  VX , VY , VZ , VRATS , RVX , RVY , RVZ 

VX  U  Equation  (93) ,  Reference  2 

~s,xs 

VY  -V  Equation  (93),  Reference  2 

~s,ys 
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VZ  W  Enuation  (9  3) ,  Reference  2 

'  s 

VRATS  vyVu$,  ratio  of  parent  aircraft  to  store 

velocity 

RVX  VX/VRATS 

RVY  VY/VRATS 

RVZ  VZ/VRATS 

COMMON  /BVELO/  UVEQO 

UVEQO  logical  variable  used  to  set  the  u,v  perturba¬ 

tion  velocities  induced  by  one  panel  on  another 
panel  in  the  same  plane  equal  to  zero 


COMMON  /CFORCE/  CNX ( 8 0 ) , CYX ( 80 ) , XCP ( 81 ) , DRDXCP ( 3 1 ) . RCP ( 8 1 ) , 
UT ( 8 1 ) , VT ( 8 1 ) , WT ( 8 1 ) 


CNX  ( I ) 


CYX (I) 


XCP  (I) 


DRDXCP  (I) 


total  dC^/dXg  acting  at  the  midpoint  of  the  Ith 
circular  body  segment  or  acting  at  the  center 
of  pressure  in  the  normal  direction  on  the  Ith 
ring  of  panels  on  an  elliptic  store 

total  dC'//dxs  acting  at  the  midpoint  of  the  Ith 
circular  body  segment  or  acting  at  the  center 
of  pressure  in  the  lateral  direction  on  the  Ith 
ring  of  panels  on  the  elliptic  store 

for  circular  stores  it  is  the  midpoint  of  the 
Ith  segment,  for  elliptic  stores  it  is  the 
center  of  pressure  for  the  Ith  store  ring  of 
panels 

dr/dxs  of  circular  store  radius  distribution 
at  midpoint  of  Ith  body  segment 


RCP (I) 


UT  ( I )  , 

VT ( I )  , 
WT  (I) 


radius  of  circular  store  at  midpoint  of  Ith 
body  segment 

Ug,Vg,Wg,  parent  aircraft  velocities  at  Ith 
circular  body  segment 


COMMON  / COM1/  A 2 

A2 

B2 


B2  ,  R2 

a^,  square  of 

*  2  , 
b  ,  square  of 


vertical  semi-a 
horizontal  semi 


cis  of  ellipse 
-axis  of  ellipse 
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1 


R2 


2 

r  ,  square  of  radius  of  circle  m  the  trans¬ 
formed  plane;  Equation  (1110),  Reference  5 


COMMON  / COM2/  SIG2,H2 

SIG2  a2  =  ^-(a  +  b)2;  Equation  (1107),  Reference  5 

H2  4*R2,  R2  given  above;  Equation  ( 1 1 1 0 )  , 

Reference  5 


COMMON  /COM 3/  ZR,ZI 

ZR  real  part  of  z,  R(z)  =x 

ZI  imaginary  part  of  z,  I  (z)  =y,  where  x  and  y 

are  the  coordinates  in  the  crossflow  plane  as 
defined  in  Appendix  I  of  Reference  5 


COMMON  / COM4/  G2,G1 


G2 

G1 


2 

=G1  -H2,  see  square  root  term  m  Equation 

(1113),  Reference  5 
2 

w+o 

w 


COMMON  /COM 5/  DWDZ 

DWDZ  Equation  (1127) ,  Reference  5 


COMMON  /COM6/  W2,W 
W2  1/W2 

W  Equation  (1112),  Reference  5 


COMMON  /COM9/  IGROW 

I GROW  index  indicating  variation  of  elliptic  semi¬ 

axes,  a  and  b,  with  axial  location 


COMMON  /CONFIG./  NFU  ,  NPY ,  NSTRS  ,  NRACK 
NFU 


NPY 


fuselage  indicator;  input  item  4,  Program  I 
pylon  indicator;  input  item  4,  Program  I 


NSTRS 


number  of  stores  indicator;  input  item  4, 
Program  I 

NRACK  rack  indicator;  input  item  4,  Program  I 

COMMON  /CONSTS/  PI,DTOR 
PI  7T 

DTOR  tt/180 


COMMON  /COUTPT/  VAR ( 1 2 ) , DVAR ( 1 2 ) , TIME , DC ( 3 , 3 ) , CDC , XMON , ESTRMX , 
DX , DELX , VSTORE , ESTLGC 

VAR  (N)  ,  £,  n,  i;,p,q,  r,  n,  C,  y,  0, 4>,  respectively 

N=l, 2, ...  12 

DVAR(N)  1 ,  n  ,  c  ,p,q,r ,  £  ,  n  ,  ;  ,  Y  ,  0, 4>,  respectively 

N=1 , 2 , . . .12 


TIME 

DC  (I,  J) 

CDC 

XMOM 

ESTRMX 

DX 

DELX 

VSTORE 

ESTLGC 


t,  current  value  of  time 

[A],  Equation  (86),  Reference  2 

not  used 

x  ;  input  item  10 
s  ,m 

maximum  radius,  a  ,  of  separated  store 

max  r 

DELX/2 

length  of  body  segment  used  in  force  calculation 

store  free-stream  velocity,  VKs,  Equation  (97), 
Reference  2 

length,  l  ,  of  separated  store 


COMMON  /DIMENS/  NX , NR, KX , KR, NXNR , KXKR, NXKR , MAXNX , MAXKR , NATOT , 
NBODY , KFUS , KRADX ( 5 ) ,KFORX(5) ,IXC(5) ,IYC(5) ,IZC(5) , 

IXZSYM , NADIM , NXDIM , NG , IXPT, IYPT,IZ?T, ITH , I DEL , NTAP7 , 

IAR, IAN, IUB, IGB (7) , IVB, IU, IV, IW, IVA, IWA, I CP , IPHI , IYB, 

NAG , NAP , NAV , NAS , NASHK , NAFLD , I AO , IDO , ISKO , IYIM, IZIM, 

ISVN , ISKP , NRING , I ROW (50) 


NFUS 


NX 

sum 

of  axial 

geometry  stations  (=  E 

NFORX (I) ) 

NR 

not 

used 

NFUS 

KX 

sum 

of  axial 

panel  geometry  stations 

(=  E  KFORX  ( I )  ) 
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KR 

NXNR 

KXKR 

NXKR 

MAXNX 

MAXKR 

NATOT 

NBODY 

KFUS 

KRADX (I) 

KFORX (I) 

IXC(I) 

IYC  (I) 

IZC(I) 

IXZSYM 

NADIM 

NXDIM 

NG 

IXPT 

I YPT 

IZPT 


not  used 

NFUS 

sum  (=  i  NFORX  (I)  *NRADX  (I )  ) 

KFUS 

sum  (=  KFORX  (I )  *KRADX  (I )  ) 

NFUS 

sum  (=  E  NFORX  (I) *KRADX(I)  ) 
maximum  of  (NFORX (I ), 1=1 , NFUS) 
maximum  of  (KFORX (I) , 1=1, NFUS) 
last  location  accessed  in  blank  common 
number  of  body  panels 

number  of  body  segments  paneled  (=NFUS) 

number  of  meridian  lines  used  to  define  panel 
edges  on  Ith  body  segment;  input  item  27, 
Program  I 

number  of  axial  stations  used  to  define  leading 
and  trailing  edges  of  panels  on  Ith  body 
segment;  input  item  27,  Program  I 

location  in  blank  common  of  start  of  XC  array 
for  Ith  body  segment 

location  in  blank  common  of  start  of  YC  array 
for  Ith  body  segment 

location  in  blank  common  of  start  of  ZC  array 
for  Ith  body  segment 

XZ-plane  symmetry  option;  input  item  14, 

Program  I 

dimensioned  length  of  A  array  in  blank  common 

maximum  allowable  number  of  axial  stations 
(  =  51) 

last  location  in  blank  common  containing  source 
panel  geometry  arrays 

location  in  blank  common  of  start  of  control 
points,  XPT 

location  in  blank  common  of  start  of  control 
points,  YPm 

location  in  blank  common  of  start  of  control 
points,  ZPT 
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ITH 


location  in  blank  common  of  start  of  array  THET 


IDEL  location  in  blank  common  of  start  of  array  DELTA 

NTAP7  number  of  variables  last  written  on  TAPE7 


IAR 

IAN 

IUB 

IGB ( IALP ) 

IVB 

IU 

IV 

IW 

I VA , IWA 

ICP 

IPHI 

IYB 

NAG 


location  in  blank  common  of  start  of  panel 
areas,  AREA 


location  in  blank  common  of  start  of  temporary 
array  AN  containing  influence  coefficients 


location  in  blank  common  of  start  of  temporary 
array  UB  containing  U,V,W  influence  coefficients 


location  in  blank  common  of  start  of  IALPth 
array  containing  the  source  strength  solution, 
GB 


location  in  blank  common  of  start  of  temporary 
array,  VB,  containing  normal  velocity  boundary 
conditions 

location  in  blank  common  of  start  of  U  velocities 

location  in  blank  common  of  start  of  V  velocities 

location  in  blank  common  of  start  of  W  velocities 

locations  in  blank  common  of  start  of  additional 
temporary  velocity  arrays 

location  in  blank  common  of  start  of  pressure 
coefficient,  CP,  array 

location  in  blank  common  of  temporary  PHI  array 

location  in  blank  common  of  start  of  coordinates 
YB  and  ZB  of  temporary  cross  section  geometry  in 
NEWRAD 

maximum  locations  in  blank  common  required  in 
GEOM 


NAP 

NAV 

NAS 


not  used 

maximum  locations  in  blank  common  required  in 
VELCMP 

maximum  locations  in  blank  common  required  in 
SOLVE 
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NASHK  maximum  locations  in  blank  common  required  in 

B SHOCK 


NAFLD  maximum  locations  in  blank  common  required  in 

FLDVEL 

1A0  offset  location  in  blank  common  of  all  above 

arrays  when  multiple  configurations  are 
simultaneously  in  core 


IDO 

rsKO 

IYIM , IZIM 

ISVN, ISKP 

NRING 
I ROW (I) 


offset  location  in  blank  common  of  ID  array 
containing  /DIMENS/  information  for  additional 
source  panel  configurations  in  core 

offset  location  in  blank  common  of  array  con¬ 
taining  information  in  common  /BSHOCK/  for 
additional  source  panel  configurations  in  core 

locations  in  blank  common  of  start  of  image 
store  Y  and  Z  control  point  coordinates 

locations  in  blank  common  of  start  of  temporary 
arrays,  SVN  and  LSKP 

number  of  rings  of  panels  on  body 

number  of  panels  around  Ith  ring  of  panels 


COMMON  /EF0RC1/  CYEM1 , CNEMl , CLLEM1 , CLMEM1 , CLNEM1 


cyem:. 


CNEMl 


CLLEM.. 


CLMEM. 


CLNEM1 


(Cy)  p 


EM' 


store  side-force  coefficient  due  to 


1st  empennage 

(Cn)eM'  store  normal-force  coefficient  due  to 
1st  empennage 

( C £ ) EM '  store  rolling-moment  coefficient  due 
to  1st  empennage 

(Cm) EM'  store  pitching-moment  coefficient  due 
to  1st  empennage 

(Cn) EM'  store  yawing-moment  coefficient  due  to 
1st  empennage 

The  forces  and  moments  in  this  common  are  those 
due  to  the  first  empennage  including  the  lift 
carry  over  on  the  body,  but  less  the  contribu¬ 
tion  the  body  alone  makes  in  the  region  of 
interference.  All  forces  and  moments  act  in 
the  sense  displayed  in  Figure  17  of  Volume  II. 
All  moments  are  about  the  store  moment  center. 
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COMMON  /EFORC2/  CYEM2 ,  CNEM2 ,  CLLEM2  1EM2 ,  CLNEM2 

CYEM2  ( Cy ) em •  store  .  c  orce  coefficient  due  to 

2nd  empennage 

CNEM2  (cn)em»  store  normal-force  coefficient  due 

to  2nd  empennage 

CLLEM2  (c£)eM'  store  rolling-moment  coefficient  due 

to  2nd  empennage 

CLMEM2  (cm)EM»  store  pitching -moment  coefficient 

due  to  2nd  empennage 

CLNEM2  (cn^EM»  store  yawing-moment  coefficient  due 

to  2nd  empennage 

The  forces  and  moments  in  this  common  are  those 
due  to  the  second  empennage  including  the  lift 
carry  over  on  the  body,  but  less  the  contribu¬ 
tion  the  body  alone  makes  in  the  region  of 
interference.  All  forces  and  moments  act  in 
the  sense  displayed  in  Figure  17  of  Volume  II. 
All  moments  are  about  the  store  moment  center. 


COMMON  /EMPCON/  RFIN (11 ) , YTAIL (11 , 4 ) , ZTAIL ( 11 , 4 ) , FROLE (4 ) , FCONA, 
FCONB,FCONC,CCL3 (11) ,CCL5(11) , XTAILI , DYFIN 

RFIN  (K)  a  +  <sh  -  a)  or  a  +  <•„-•>! 

Figure  10,  Reference  6,  with  s.  =  s 

n  v 

YTAIL (K,J)  y  coordinate  of  the  Kth  control  point  on  the 

Jth  fin 

ZTAIL (K,J)  z  coordinate  of  the  Kth  control  point  on  the 

jth  fin 

FROLE  (K)  <t>£  +  90  °  for  fin  1,  <Pf  +  270°  for  fin  2, 

<J>f+180°  for  fin  3,  <pf  for  fin  4;  radians; 
see  Figure  10,  Reference  6 

FCONA  ( dCL/da ) H/  ( sh  -  a ) 2 

FCONB  FCONA/£D 

FCONC  Figure  8,  Reference  6 

r  s  ,m 

CCL3 (K)  (ccg) o  and  (cc£>4.  Equations  (1-14)  and 

(1-19),  Reference  6;  equal  since  s^ =  sy 

CCL5(K)  (cc^)5  if  planar  empennage.  Equation  (1-29), 

Reference  6;  (cc£)g  if  cruciform  empennage. 
Equations  (1-38)  and  (1-51) ,  Reference  6 
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NASHK 

NAFLD 

IAO 

IDO 

ISKO 

IYIM, IZIM 

ISVN , ISKP 

NRING 
I ROW ( I ) 

COMMON  /EFORC1/ 
CYEM1 

CNEMl 

CLLEM1 

CLMEM1 

CLNEM1 


maximum  locations  in  blank  common  required  in 
BSHOCK 

maximum  locations  in  blank  common  required  in 
FLDVEL 

offset  location  in  blank  common  of  all  above 
arrays  when  multiple  configurations  are 
simultaneously  in  core 

offset  location  in  blank  common  of  ID  array 
containing  /DIMENS/  information  for  additional 
source  panel  configurations  in  core 

offset  location  in  blank  common  of  array  con¬ 
taining  information  in  common  /BSHOCK/  for 
additional  source  panel  configurations  in  core 

locations  in  blank  common  of  start  of  image 
store  Y  and  Z  control  point  coordinates 

locations  in  blank  common  of  start  of  temporary 
arrays,  SVN  and  LSKP 

number  of  rings  of  panels  on  body 

number  of  panels  around  Ith  ring  of  panels 


CYEMl , CNEMl , CLLEM1 , CLMEM1 , CLNEM1 

( Cy ) em •  store  side-force  coefficient  due  to 
1st  empennage 

(Cn)eM'  store  normal-force  coefficient  due  to 
1st  empennage 

(C-f) EM'  store  rolling-moment  coefficient  due 
to  1st  empennage 

(Cm) EM'  store  pitching-moment  coefficient  due 
to  1st  empennage 

( Cn ) em »  store  yawing-moment  coefficient  due  to 
1st  empennage 

The  forces  and  moments  in  this  common  are  those 
due  to  the  first  empennage  including  the  lift 
carry  over  on  the  body,  but  less  the  contribu¬ 
tion  the  body  alone  makes  in  the  region  of 
interference.  All  forces  and  moments  act  in 
the  sense  displayed  in  Figure  17  of  Volume  II. 
All  moments  are  about  the  store  moment  center. 
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XTAILI 


not  used 


DYFIN 

COMMON 

FINSS 

RADAV 

XTAIL 

PHIROL 

MSF 

IPLNR 

CLALPH 

COMMON 

ALFACR 

GAMF 

FMACH 

RHO 

VINF 

BETA 

BETASQ 

FMCHSQ 

COMMON 

CN 

CT 

CM 

CYB 

CLROLL 


spanwise  distance  between  control  points  on  a 
fin 

/EMPDAT/  FINSS , RADAV , XTAIL , PHIROL , MSF , IPLNR , CLALPH 
tail  fin  semispan;  input  item  15 
average  body  radius  in  fin  region;  input  item  15 
input  item  15 
<pf;  input  item  15 
input  item  14 

empennage  type;  input  item  14 
input  item  15 

/FLOW/  ALFACR , GAMF , FMACH , RHO , VINF , BETA , BETASQ , FMCHSQ 
oif,  radians 

fuselage  flight  path  angle,  Yf;  input  item  3 

M^;  input  item  3,  Program  I 

pm;  input  item  3 

V^;  input  item  3 

8  =  /M*-l 

CO 


/FORM/  CN , CT , CM , CYB , CLROLL , CNYAW , CL , CD , DXN 

elliptic  body  normal-force  coefficient 
elliptic  body  axial-force  coefficient 
elliptic  body  pitching-moment  coefficient 
elliptic  body  side-force  coefficient 
elliptic  body  rolling-moment  coefficient 
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CNYAW  elliptic  body  yawing-moment  coefficient 

CL  lift  coefficient  perpendicular  to  free  stream 

velocity 

CD  drag  coefficient  parallel  to  free  stream 

velocity 

DXN  axial  location  from  elliptic  store  nose  of 

center  of  lift  in  normal  direction 


COMMON  /FSHOCK/  NFSHK , FXSHK (50) , FRSHK (50) , FDRDX (101) 

NFSHK  number  of  x  and  r  values  in  fuselage  nose 

shock  table  generated  from  line  singularities 

FXSHK (I),  x  and  r  coordinates  of  Ith  circular  fuselage 

FRSHK (I)  nose  shock  location  at  zero  angle  of  attack 

FDRDX (J)  dr/dx  at  Jth  circular  fuselage  control  point 


COMMON  /FSOR/  FXL (101) ,FSS (100) ,FDS (100) ,NFSOR 

FXL(I)  array  containing  the  x  positions  of  the  fuselage 

sources  and  doublets;  positive,  measured  from 
tip  of  nose 

FSS(I)  array  containing  the  strengths  of  the  circular 

fuselage  source  distribution 

FDS(I)  array  containing  the  strengths  of  the  circular 

fuselage  doublet  distribution 

NFSOR  number  of  circular  fuselage  sources  and 

doublets;  input  item  9,  Program  I 


COMMON  /GRIDCU/  XPT ( 500 ) , YPT ( 100 ) , ZPT ( 100 ) , SPHI ( 40 ) , CPHI ( 40 ) , 

SWP (500) , SNBP ( 40 ) ,CSBP(40) , THTBP (40) ,DPNET(500) 

XPT (I)  xw  coordinate  of  Ith  wing/body /pylon  constant 

u-velocity  corner  point 

YPT ( J)  yw  coordinate  of  Jth  chordwise  row  of  wing/ 

body/pylon  constant  u-velocity  corner  points 

ZPT ( J)  zw  coordinate  of  Jth  chordwise  row  of  wing/ 

body/pylon  constant  u-velocity  corner  points 


SPHI (J) 

sine  of  dihedral  angle  associated  with  Jth  row 
of  wing  constant  u-velocity  corner  points 

CPHI (J) 

cosine  of  dihedral  angle  associated  with  Jth 
row  of  wing  constant  u-velocity  corner  points 

SWP(I) 

leading-edge  slope  of  semi-infinite  influencing 
triangle  associated  with  Ith  constant  u-velocity 
corner  points 

SNBP(J) 

sine  of  orientation  angle  of  Jth  row  of  body 
u-velocity  corner  points 

CSBP (J) 

cosine  of  orientation  angle  of  Jth  row  of  body 
u-velocity  corner  points 

THTBP (J) 

polar  angle  in  cross-sectional  plane  defining 
the  Jth  row  of  fuselage  constant  u-velocity 
corner  points;  positive  in  counterclockwise 
rotation  from  positive  yfi  axis 

DPNET ( I ) 

net  strength  of  Ith  u-velocity  corner  point 

COMMON  /GRIDTH/ 
SWPS(IOOO) 

XPTS (1000) , YPTS (100) ,ZPTS(100) ,SPHS(40) ,CPHS(40) , 

,  THTNET (1000) fDZDX(400) 

XPTS  (I) 

xw  coordinate  of  Ith  wing/pylon  thickness 
source  panel  corner  point 

YPTS(J) 

yw  coordinate  of  Jth  chordwise  row  of  wing/ 
pylon  thickness  source  panel  corner  points 

ZPTS (J) 

zw  coordinate  of  Jth  chordwise  row  of  wing/ 
pylon  thickness  source  panel  corner  points 

SPHS (J) 

sine  of  dihedral  angle  associated  with  Jth 
row  of  wing  source  panel  corner  points 

CPHS (J) 

cosine  of  dihedral  angle  associated  with  Jth 
row  of  wing  source  panel  corner  points 

SWPS(I) 

leading-edge  slope  of  semi-infinite  influencing 
triangle  associated  with  Ith  source  panel 
corner  point 

THTNET ( I ) 

net  strength  of  Ith  thickness  source  panel 
corner  point 

DZDX(I) 

dz/dx  of  Ith  thickness  panel 
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COMMON  /HEAD/  TITLE1 (20) . TITLE2 (20) 


TITLE1 

TITLE2 

COMMON 

NDAMP 

NEJSTR 

NEMP 

NGAM 

NSEG 

NHSEGO 

NROLL 

COMMON 

PHIDIH 

THETIT 

PHIFR 

PHIFI 

PHIFU 

PHIFD 

COMMON 

NJECTR 


array  containing  hollerith  description  of  non 
circular  body  external  geometry 

array  containing  hollerith  description  of  non 
circular  body  paneling  distribution 

/IFORCE/  NDAMP,  NEJSTR, NEMP , NGAM, NSEG , NHSEGO , NROLL 
input  item  4 

subscript  associated  with  separated  store; 

1  <.  NEJSTR  <  NSTRS 

input  item  4 

input  item  4 

input  item  4 

not  used 

input  item  4 

/INTRDT/  PHIDIH , THETIT , PHIFR, PHIFL , PHIFU , PHIFD 

interdigitated  tail  dihedral  angle;  input 
item  21 

interdigitated  tail  meridian  attachment  angle 
input  item  21 

dihedral  angle  of  fin  1;  input  item  22 

dihedral  angle  of  fin  2;  input  item  22 

dihedral  angle  of  fin  3;  input  item  22 

dihedral  angle  of  fin  4;  input  item  22 


/JECTOR/  NJECTR, FXS , FYS , FZS , RMX , RMY , RMZ 

ejector  force  indicator;  input  item  4 
NJECTR=1,  read  ejector  force  input 
NJECTR=2,  initialize  ejector  forces 
NJECTR=3,  compute  ejector  force  versus  time 
or  distance 

Value  is  incremented  internally 


FXS,FYS,FZS 


components  of  ejector  force  along  xs>y~izs 
axes;  pounds  b 

RMX i RMY , RMZ  components  of  ejector  moments  acting  about 

the  xs,ys,zs  axes  and  about  the  moment  center; 
foot-pounds 


COMMON  /LETEM/  FMXT3 , FMXT4 

FMXT3  leading-edge  Mach  number  associated  with  wing 

thickness  at  the  yw,zw  location  of  the  store 
center  of  moments 

FMXT4  trailing-edge  Mach  number  associated  with 

wing  thickness  at  the  yw,zw  location  of  the 
store  center  of  moments 


COMMON  /LOCBET/  FBETAL , RBETAL , SBETAL ( 7 ) 

FBETAL  value  of  3  to  be  used  in  calculating  the 

fuselage  induced  velocities  at  a  specific 
field  point 

RBETAL  value  of  3  to  be  used  in  calculating  the  rack 

induced  velocities  at  a  specific  field  point 

SBETAL (J)  value  of  3  to  be  used  in  calculating  the  Jth 

store  induced  velocities  at  a  specific  field 
point 


COMMON  /MULSTR/  NESHPT ,NEJSHP , NEJGB , LASTEJ , LASTF , LASTA, 

IDEJ, IDF, ID2 

NESHPT  number  of  elliptic  store  shapes 

NEJSHP  index  of  separated  store  shape 

NEJGB  for  separated  store  shape,  index  of  separated 

store 

LASTEJ  last  location  in  blank  common  of  separated 

elliptic  store  solution  arrays 

LASTF  last  location  in  blank  common  of  noncircular 

fuselage  solution  arrays 

LASTA  last  location  in  blank  common  of  second 

elliptic  store  shape  solution  arrays 
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IDEJ 

index  locating 
store  shape 

index 

array, 

ID, 

of 

separated 

IDF 

index  locating 
fuselage 

index 

array. 

ID, 

of 

noncircular 

ID2 

index  locating 
elliptic  store 

index 

shape 

array, 

ID, 

of 

second 

COMMON  /NEWFOR/  NTHETA , DTHETA , THETAD (37), STHETA (37), CTHETA (37), 
REFL, SREF, NCONPT 


NTHETA 

number  of  circumferential  points  to  be  used 
in  circular  store  force  and  moment  calculation 
input  item  4 

DTHETA 

A6  =  2tt  (NTHETA-1) 

THETAD (J) 

ej=(J-l)A6,  deg. 

STHETA (J) 

sin9  _ 

J 

CTHETA (J) 

COS0  J 

REFL 

reference  length  used  in  force  and  moment 
calculation 

SREF 

reference  area  used  in  force  and  moment 
calculation 

NCONPT 

number  of  control  points  used  in  circular 
store  source  and  doublet  strength  calculation 

COMMON  /NUFLOW/ 

FNUMCH , BETANU , BTSQNU , INUMCH , ISMTH , XT3 , XT  4 

FNUMCH 

local  Mach  number,  M£ ,  to  be  used  in  wing 
thickness  and  wing-fuselage  u-velocity  panel 
velocity  calculations  at  a  specific  field 
point 

BETANU 

BTSQNU 

Ml_1 

284 


INUMCH 


INUMCH=1  when  calculating  wing-fuselage 
u-velocity  panel  and  wing  thickness  velocities; 
INUMCH=0  otherwise 


ISMTH 
XT  3 

XT4 

COMMON  /NUINDX/ 
NCP1 , NCWB1 

NRW 

NRP 

NRB 

NPTW 

NRWS 

NRPS 

NPTWS 

NRWP 


not  used 

coordinate  of  wing  leading-edge  shock  at 

y  ,  z  coordinates  of  store  center  of  moments 
2  w  w 

x  coordinate  of  wing  trailing-edge  expansion 

cone  at  y  , z  coordinates  of  store  center  of 
,  w  w 
moments 


NRW , NRP , NRB , NPTW , NRWS , NRPS , NPTWS , NRWP , NPTWP , NCW1 , 
NCWS , NCWSl , NCPS1 

number  of  rows  of  corner  points  defined  for 
wing  constant  u-velocity  panels;  NRW=MSW+1+KW; 
MSW  is  input,  item  36,  Program  I 

number  of  rows  of  corner  points  defined  for 
pylon  constant  u-velocity  panels; 

NRP=MSP+1+KP;  MSP  is  input,  item  44, 

Program  I 

number  of  rows  of  corner  points  defined  for 
fuselage  constant  u-velocity  panels; 

NRB=2* (NBDCR1+NBDCR2 ) ;  NBDCRl  and  NBDCR2 
are  input,  item  9,  Program  I 

number  of  corner  points  defined  for  wing 
constant  u-velocity  panels;  NPTW=NCW1*NRW 

number  of  rows  of  corner  points  defined  for 
wing  source  panels;  NRWS=MSWS+1+KW;  MSWS  is 
input,  item  40,  Program  I 

number  of  rows  of  corner  points  defined  for 
pylon  source  panels;  NRPS=MSPS+1+KP;  MSPS  is 
input,  item  46,  Program  I 

number  of  corner  points  defined  for  wing 
source  panels;  NPTWS=NCWS1*NRWS 

NRW+NRP 
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NPTWP 

NCW1 

NCP1 

NCWB1 

NCWS 

NCWS1 

NCPS1 

COMMON 

XM 

ZM 

CZOA 

CYOZ 

CMOA 

CLNOA 


number  of  corner  points  defined  for  wing  and 
pylon  constant  u-velocity  panels;  NPTWP= 
NPTW+NCP1*NRP 

number  of  corners  in  a  chordwise  row  of  wing 
constant  u-velocity  panels;  NCW+1;  NCW  is 
input,  item  36,  Program  I 

number  of  corners  in  a  chordwise  row  of  pylon 
constant  u-velocity  panels;  NCP+1;  NCP  is 
input,  item  44,  Program  I 

number  of  corners  in  a  chordwise  row  of 
fuselage  constant  u-velocity  panels; 

NCWB+1;  NCWB  is  input,  item  9,  Program  I 

number  of  wing  source  panels  in  a  chordwise 
row;  input  item  40,  Program  I 

number  of  corners  in  a  chordwise  row  of 
wing  source  panels;  NCWS+1;  NCWS  in  input, 
item  40,  Program  I 

number  of  corners  in  a  chordwise  row  of 
pylon  source  panels;  NCPS+1;  NCPS  is  input, 
item  46,  Program  I 


/ OAFM/  XM , ZM , CZOA , CYOA , CMOA , CLNOA , CLLOA 

X-location  of  moment  center  relative  to 
store  nose,  positive  aft 

Z-location  of  moment  center  relative  to 
store  centerline,  positive  up 

(C^j)  ,  total  empennage  normal-force  coefficient 

(C y ) g,  total  empennage  side-force  coefficient 

(Cm) E»  total  empennage  pitching-moment  coef- 
f icient 

(Cn)E»  total  empennage  yawing-moment  coef¬ 
ficient 
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CLLOA 


(C^)E,  total  empennage  rolling-moment  coefficient 

The  forces  and  moments  in  this  common  are  those 
due  to  the  sum  of  the  contributions  of  each  of 
the  fins  present  and  the  body  interference  shell 
in  the  presence  of  both  the  store  body  and  its 
reflections  and  the  parent  aircraft.  All  forces 
and  moments  act  in  the  sense  displayed  in  Figure 
17  of  Volume  II.  All  moments  are  about  the 
store  moment  center 


COMMON  /ONE/  DELTP(250) ,FN(250) ,PNLC(250) ,SWPPLE(250) ,SWPPTE(250) , 
XBAR (250) , ZBAR ( 250 ) ,XCPT(250) fYCPT(250) ,ZCPT(250) ,XLF(250) , 
XLB (250) ,XRF (250) ,XRB (250) , YLC (250) , YRC (250) , ZLF (250) , 

ZRF (250) , ZLB (250) ,ZRB(250) ,SNT(100) ,CST(100) , SNT2 (100) , 

CST2  (250)  ,XFBIP (100)  , ALFA , ALFR, B2 , B2V, BETA, BETAR, CONST , 

CN, DX , EM, FMACH, SINALF , S INBET , SLOPE , TLRNC , TOTLR, U , V, W, 

UCHK , VCHK , WCHK , WBIP , X , Y , Z , I V , IF , II , JV, MSWR , MSWL , MSLU , 

MSWD , NBIP , NCW , NHP , NPR , NRP , N3P , NOCPT , NOUT , NPANLS , NWBP , 

RA , RB , ERAT 10 , BODY , DELTA 


DELTP (J) 


Acpiin,  linear  loading  pressure  coefficient  of 
Jth  u-velocity  panel 


FN  (J) 


normal  force  divided  by  q  for  Jth  u-velocity 
panel 


PNLC (J) 


panel  chord  through  control  point  of  Jth 
u-velocity  panel 


SWPPLE (J) 


dx/dy,  leading  edge  slope  of  Jth  u-velocity 
panel  measured  from  local  panel  y-axis 


SWPPTE(J)  dx/dy,  tangent  of  trailing  edge  sweep  angle  of 

Jth  u-velocity  panel  measured  from  local  y-axis 

XBAR(J)  x-location  of  centroid  of  Jth  u-velocity  panel 

in  wing  coordinate  system 


ZBAR ( J) 


z-location  of  centroid  of  Jth  u-velocity  panel 
in  wing  coordinate  system 


XCPT(J),  coordinates  of  control  point  of  Jth  u-velocity 

YCPT(J),  panel  in  wing  coordinate  system 

ZCPT (J) 


XLF(J)  x-location  of  left  front  corner  of  Jth  u-velocity 

panel  in  wing  coordinate  system  (corner  1, 

Figure  3,  Volume  II) 
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XLB ( J) 


x-location  of  left  back  corner  of  Jth  u-velocity 
panel  in  wing  coordinate  system  (corner  3, 

Figure  3,  Volume  II) 


XRF ( J) 


XRB (J) 


YLC ( J) 

YRC (J) 


x-location  of  right  front  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  2,  Figure  3,  Volume  II) 

x-location  of  right  back  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  4,  Figure  3,  Volume  II) 

y-location  of  left  side  edge  of  Jth  u-velocity 
panel  in  wing  coordinate  system 

y-location  of  right  side  edge  of  Jth  u-velocity 
panel  in  wing  coordinate  system 


ZLF (J) 


ZRF ( J) 


ZLB (J) 


ZRB ( J) 


SNT (J) 


CST (J) 


SNT2 (J) 


CST2 ( J) 


XFBIP  (J) 


z-location  of  left  front  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  1,  Figure  3,  Volume  II) 

z-location  of  right  front  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  2,  Figure  3,  Volume  II) 

z-location  of  left  back  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  3,  Figure  3,  Volume  II) 

z-location  of  right  back  corner  of  Jth  u- 
velocity  panel  in  wing  coordinate  system 
(corner  4,  Figure  3,  Volume  II) 

sin (THTI ( J) ) ,  sin0Bjp  j  in  Figure  18  of  Volume 
II,  locates  panel  left  side  edge  for  Jth  body 
interference  shell  u-velocity  panel 

cos (THTI (J) ), cos0Bjp  j  in  Figure  18  of  Volume 
II,  locates  panel  left  side  edge  for  Jth  body 
interference  shell  u-velocity  panel 

sin02  BIP  Figure  18  of  Volume  II,  used  in 
panel ' rotation  transformation  for  Jth  body 
interference  shell  u-velocity  panel 

cos02  BIP  in  Figure  18  of  Volume  II,  used  in 
panel  rotation  transformation  for  Jth  body 
interference  shell  u-velocity  panel 

x-location  of  leading  edge  of  Jth  body  inter¬ 
ference  shell  u-velocity  panel 


I* 
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ALFA 


ALFR 

B2 

B2V 

BETA 

BETAR 

CONST 

CN 

DX 

EM 

FMACH 

SINALF 

SINBET 

SLOPE 

TLRNC 
TOTLR 
U,  V,W 


UCHK , VCHK , WCHK 

WBIP 
X ,  Y ,  Z 


IV 

IF 

II 


angle  of  pitch,  deg. 
angle  of  pitch,  radians 

exposed  horizontal  fin  semispan;  input  item  19 
exposed  vertical  fin  semispan;  input  item  20 

3  =  /M2  - 1 

00 

angle  of  side  slip,  radians 

4tt 

not  used 

body  interference  u-velocity  panel  length 

local  u-velocity  panel  leading  or  trailing 
edge  slope 

M^,  free  stream  Mach  number 
sin (ALFR) 
sin (BETAR) 

local  u-velocity  panel  leading  or  trailing  edge 
slope 

numerical  tolerance  related  to  semispan 
2*TLRNC 

perturbation  velocities  induced  by  a  single 
corner  of  a  constant  u-velocity  panel  in  local 
panel  coordinates 

perturbation  velocities  induced  at  a  point  by 
a  specified  number  of  constant  u-velocity 
panels  in  wing  coordinates 

width  of  body  interference  panel 

coordinates  of  a  field  point  relative  to  a 
corner  of  a  constant  u-velocity  panel  aligned 
with  that  panel 

index  of  influencing  u-velocity  panel 

final  index  in  loop  over  number  of  influencing 
panels 

initial  index  in  loop  over  number  of  influencing 
panels 
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JV 

index  of  u-velocity  panel  control  point 

MSWR 

number  of  panels  in  spanwise  direction  on 
right  fin;  input  item  18 

MSWL 

number  of  panels  in  spanwise  direction  on 
left  fin;  input  item  18 

MSWU 

number  of  panels  in  spanwise  direction  on 
upper  fin;  input  item  18 

MSWD 

number  of  panels  in  spanwise  direction  on 
lower  fin;  input  item  18 

NBIP 

number  of  body  interference  panels; 

=NBDCR*NCWB 

NCW 

number  of  panels  in  chordwise  direction; 
input  item  18 

NHP 

number  of  horizontal  fin  panels  (fins  1  and  2); 
=NCW* (MSWR+MSWL) 

NPR 

print  control  index 

NPR 

number  of  right  fin  (fin  1)  panels;  =NCW(MSWR) 

N3P 

number  of  right,  left,  and  upper  fin  panels 
(fins  1,  2  and  3);  =NCW (MSWR+MSWL+MSWU) 

NOCPT 

control  index  signifying  whether  or  not  a 
u-velocity  panel  control  point  is  under 
consideration 

NOUT 

print  control:  l=yes,  0=no 

NPANLS 

total  number  of  u-velocity  panels  on  fins; 

=NCW* ( MS WR+MSWL+MS WU+MSWD ) 

NWBP 

total  number  of  u-velocity  panels  on  fins; 
=NPANLS+NBIP 

RA 

vertical  semi-axis  of  elliptic  store  at 
interference  shell 

RB 

horizontal  semi-axis  of  elliptic  store  at 
interference  shell 

ERATIO 

elliptic  ratio  (RB/RA) 

BODY 

logical  indicator  of  interference  shell 
presence  (=NBDCR. NE . 0 ) 
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DELTA 


logical  indicator  of  presence  of  fin 
deflection 


COMMON  /OUTINI/  XNOSEI , YNOSEI , ZNOSEI , XCGI , YCGI , ZCGI , XBASEI 
YBASEI, ZBASEI 


XNOSEI 

£  coordinate 
at  t  =  0 

of 

YNOSEI 

n  coordinate 
at  t  =  0 

of 

ZNOSEI 

C  coordinate 
at  t  =  0 

of 

XCGI 

£  coordinate 
at  t  =  0 

of 

YCGI 

n  coordinate 
at  t  =  0 

of 

ZCGI 

£  coordinate 
at  t  =  0 

of 

XBASEI 

£  coordinate 

of 

YBASEI 

n  coordinate 

of 

ZBASEI 

S  coordinate 

of 

tip  of  separated  store  nose 

tip  of  separated  store  nose 

tip  of  separated  store  nose 

separated  store  moment  center 

separated  store  moment  center 

separated  store  moment  center 

separated  store  base  at  t  =  0 

separated  store  base  at  t  =  0 

separated  store  base  at  t  =  0 


COMMON  /PARAM/  XMACH , ALPHA, BETA, ALPHAC , PHIR, EM, SINAC , COSAC , 
SPHI , CPHI , SINA, SINB 


XMACH 

ALPHA 

BETA 


Mach  number  seen  by  source  panels 

a,  free  stream  angle  of  attack  seen  by  source 
panels,  degs.  =sin~^ (sin (ALPHAC) -cos (PHIR) ) 

3,  free  stream  angle  of  side  slip  seen  by  source 
panels,  degs.  =sin_1 (sin (ALPHAC) • sin (PHIR) ) 


ALPHAC 

PHIR 

EM 

SINAC 


ac,  included  angle  of  attack  seen  by  source 
panels,  degs. 

angle  of  roll  seen  by  source  panels 

temporary  Mach  number  of  last  computation 

sin(a  ) 
c 
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**  .r* 


COSAC 


cos (ac) 


SPHI 

sin  (<p  ) 

CPHI 

COS ( 0  ) 

SINA 

sin (a) 

SINB 

sin ( 8) 

COMMON  /PYGEOM/ 

Z (20) , XPLE, YPL, CRP, HP, PSIPLE 

(20) ,PSIPTE (20) , IP, 

SLLE , PSLPDF 

, CENTER, ZPL, LVSPP 

Z  (K) 

input  item  45,  Program  I 

XPLE 

input  item  43,  Program  I 

YPL 

yw  location  of  the  pylon; 
input  item  37,  Program  I 

YPL=Y ( IP )  of 

CRP 

input  item  43,  Program  I 

HP 

input  item  43,  Program  I 

PSIPLE (K) 

input  item  45,  Program  I 

PHIPTE (K) 

input  item  45,  Program  I 

IP 

input  item  43,  Program  I 

SLLE 

slope  of  pylon  leading  edge 

PSLPDF 

difference  in  leading  and 
slopes,  PSLPDE=SLLE-SLTE 

trailing  edge 

CENTER 

logical  test  for  fuselage 
(CENTER=YPL. EQ. 0) 

centerline  pylon 

ZPL 

zw  location  of  the  pylon; 

ZPL=ZLC( ( IP-2 ) NCW+1 

LVSPP 

breaks  in  pylon  sweep  indicator;  LVSPP=0,  no; 

LVSPP=1,  yes 

COMMON  /RKGEOM/  RRMAX , RLTHC , XWROC , YWRO, ZWRO, NRPOLY , RXEND ( 7 ) , 
RCOEF (7,7), XBRO , YBRO , ZBRO, RIBCR, SRIBCR, CRIBCR 

RRMAX  maximum  rack  radius;  input  item  49,  Program  I 

RLTHC  length  of  rack;  input  item  49,  Program  I 
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XWROC 


xw  location  of  rack  in  wing  coordinates,  feet 


YWRO 

v  location  of 

1  w 

rack 

in  wing 

coordinates, 

feet 

ZWRO 

z  location  of 
w 

rack 

in  wing 

coordinates , 

feet 

NRPOLY 

number  of  rack 
50,  Program  I 

shape 

polynomials;  input 

i  tern 

RXEND ( J ) 

rack  polynomial 
Program  I 

end 

points; 

input  item  9 

1, 

RCOEF ( I , J ) 

rack  polynomial 
Program  I 

coe  f  f ic lent  s 

;  input  item 

52, 

XBRO 

x„  location  of 

l) 

rack 

in  body 

coordinates , 

feet 

YBRO 

y  location  of 

rack 

in  body 

coordinates , 

feet 

ZERO 

z,,  location  of 

rack 

in  body 

coordinates, 

feet 

RIBCR 

RIC'DTOP.;  input 

l  tern 

49  for 

RIC  in  Program  I 

SRIBCR 

sin (RIBCR) 

C RIBCR 

cos (RIBCR) 

COMMON  /RSHOCK/  NRSHK  ,  RXSHK  (  50 )  ,  RP.SHK  (  50  )  ,  RDRDX  (101) 


NRSHK 

RXSHK (I)  , 
RRSHK(I) 


number  of  x  and  r  values  in  rack  nose  shock 
table  generated  from  line  singularities 

x  and  r  coordinates  of  Ith  rack  nose  shock 
location  at  zero  angle  of  attack,  feet 


RDRDX (J) 


dr/dx  at  Jth  rack  control  point 


COMMON  /RSOR/  RXL(lOl) ,RSS(100) , RDS (100) , NRSOR 


RXL 

array  containing  the  x  positions  of  the  rack 
sources;  positive,  measured  from  tip  of  rack 
nose 

RSS 

array  containing  the  strengths  of  the  rack 
source  distribution 

RDS 

array  containing  the  strengths  of  the  rack 
doublet  distribution 

NRSOR 

number  of  rack  sources  and  doublets;  input 
item  53,  Program  I 
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COMMON  /SORDUB/  BETAA, SRS ( 150 ), VRATSA, BETAS , BSS , DSW ( 1 50) , DSV ( 150) , 
XS ( 150) , XD (150) , BETAAI , BETAS I , BSSI 


BETAA 

SRS (J) 

VRATSA 

BETAS 

BSS 

DSW(J) 

DSV(J) 

XS  (J) 

XD  ( J  ) 

BETAAI 
BETAS  I 
BSSI 


6a  =  ^Mg-l  where  Ma  is  the  axial  Mach  number 
seen  by  separated  store 

strength  of  the  Jth  source  modeling  the 
separated  store 

total  free-stream  velocity  seen  by  the 
separated  store  divided  by  the  axial 
component 

15S  =  /M|-l  where  Ms  is  the  total  Mach  number 
seen  by  the  separated  store;  Ms  =  M^V  /V^ 

,  2 
s 

strength  of  the  Jth  upwash  doublet  modeling 
the  separated  store 

strength  of  the  Jth  sidewash  doublet  modeling 
the  separated  store 

origin  of  the  Jth  source  modeling  the 
separated  store 

origin  of  the  Jth  upwash  and  sidewash  doublets 
modeling  the  separated  store 

not  used 

not  used 

not  used 


COMMON  /SPCPRS/  DLTP{250) 

DLTP(J)  .'.Cp,  Bernoulli  pressure  used  in  loading 

calculation  for  Jth  u-velocity  panel  on 
empennage;  ..Cp  is  computed  in  Equation  (10), 
Reference  6 


COMMON  /SPSANG/  S INALC  ,  COSALC  ,  S INPii I ,  COSPHI 

SINALC  sin  (  jl  ) 

c 

COSALC  cosli  ) 

c 


2  0  4 


SINPHI 


COSPHI 


sin  ($>r) 
cos(<j>r) 


COMMON  /SSHOCK/  NSSHK ( 7) , SXSHK (50,7) , SRSHK (50,7) , SDRDX (101 , 7 ) 


NSSHK(J) 

SXSHK (I ,  J) , 
SRSHK (I, J) 


number  of  x  and  r  values  in  Jth  store  nose 
shock  table  generated  from  line  singularities 

x  and  r  coordinates  of  Ith  circular  store 
shock  location  at  zero  angle  of  attack  for 
Jth  store 


SDRDX (K, J) 


dr/dx  at  Kth  circular  store  control  point 
of  Jth  store 


COMMON  /SSOR/ 
SXL (I ,  J) 

SSS ( I ,  J) 

SDS (I, J) 


SXL (101, 7) , SSS (100, 7) ,SDS (100,7) ,NSSOR(7) 

x-position  of  Ith  source  for  Jth  circular 
store;  positive  measured  from  tip  of  nose 

strength  of  Ith  source  for  Jth  circular  store 

strength  of  Ith  doublet  for  Jth  circular  store 


NSSOR(J) 


number  of  Jth  circular  store  sources  and 
doublets;  equal  to  input  item  56,  Program  I 


COMMON  /STGEOM/  SLTHC ( 7 ) , SRMAX ( 7 ) , SIBCR ( 7 ) , CSIBCR ( 7 ) , SSIBCR ( 7 ) , 
YBSO ( 7 ) , XBSO ( 7 ) , ZBSO ( 7 ) , NUMSTR ( 7 ) , NSHAPE ( 7 ) , NSHPT , 

MSHAPE ( 7 ) , SPHIRR ( 7 ) 


SLTHC (J) 
SRMAX ( J) 
SIBCR (J) 
SSIBCR ( J) 
CSIBCR (J) 
XBSO ( J) 
YBSO ( J) 
ZBSO(J) 
NUMSTR (J) 


length  of  Jth  store;  input  item  54,  Program  I 
maximum  radius  of  Jth  store;  input  item  54,  Program  I 
SIC(J)*DTOR;  input  item  54,  Program  I,  for  SIC(J) 
sin (SIBCR(J) ) 
cos (SIBCR (J) ) 

xQ  coordinate  of  tip  of  nose  of  Jth  store 
yB  coordinate  of  centerline  of  Jth  store 
zg  coordinate  of  tip  of  nose  of  Jth  store 
store  number;  input  item  54,  Program  I 
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NSHAPE (J) 

NSHPT 

MSHAPE(K) 

SPHIRR(J) 

COMMON  /STORIC/ 
BTNOSC 

RSSC 

COMMON  /STORIF/ 
IMFSTR 

BTNOSF 

RSS 

YBN , ZBN 

SFAC 

COMMON  /STORIM/ 
IMSTOR 

BTNOSE 

XWN , YWN , ZWN 


* 


store  shape  number,  input  item  54,  Program  I 

number  of  different  store  shapes;  input  item 

55,  Program  I 

shape  number  of  Kth  store  shape;  input  item 

56,  Program  I 

initial  roll  angle  of  Jth  store  coordinate 
axes;  positive  right  wing  down,  radians 


BTNOSC, RSSC 

6  associated  with  first  source  of  image  store 
on  fuselage  centerline  (=XSR/RSSC) 

distance  from  real  store  nose  to  fuselage 
centerline;  locates  line  source  image  on 
fuselage  centerline.  See  Figure  C-7. 


IMFSTR, BTNOSF , RSS , YBN , ZBN , SFAC 

index  indicating  whether  store  shock  reflecting 
from  fuselage  strikes  the  store 
(IMFSTR=0,  no;  IMFSTR=1,  yes) 

8  associated  with  first  source  and  doublet  of 
fuselage  image  store  (=XSR/RSS).  See  Figure  C-7. 

2 

location  of  image  store;  RSS  =  RSSC-RBS  /RSSC 

Yb,Zb  location  of  store  nose  in  fuselage 
coordinates 

image  line  doublet  multiplying  factor 
(=RBS2/RSSC2) 


IMSTOR, BTNOSE , XWN , YWN , ZWN, IMAGE 

index  indicating  whether  store  shock  reflecting 
from  wing  strikes  the  store 
( IMSTOR=0 ,  no;  IMSTOR=l,  yes) 

8  associated  with  first  source  and  doublet  of 
wing  image  store 

x,y,z  coordinates  of  wing  image  store  nose  in 
wing  coordinate  system 
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IMAGE 


logical  index  indicating  whether  image  store 
is  present  (IMAGE=T,  yes;  IMAGE=F,  no) 


COMMON  / STORSD/  NXBODY , XBD (151 ) , RBD (151) , NPOLY , XEND ( 7) , COEF (7,7) , 
XBC{150) , RBC (150) ,DRDXBC(150) , NSORCE, DRDXBD (151) 


NXBODY 

XBD ( J) , 
RBD ( J) 

NPOLY 

XEND ( J) 

COEF ( J ,  K) 

XBC (J) , 
RBC ( J) 

DRDXBC ( J) 

NSORCE 
DRDXBD (J) 


number  of  circular  store  body  definition 
points  (=NSORCE+l) 

x  and  r  coordinates  of  circular  store  body 
definition  points  at  Jth  station 

number  of  shape  polynomials,  input  item  4 

end  points  of  polynomials,  input  item  11 

coefficients  of  polynomials,  input  item  12 

x  and  r  coordinates  of  circular  store  body 
control  points  for  Jth  station 

dr/dx,  slope  of  body  radius  distribution  of 
circular  store  at  Jth  control  point 

number  of  sources  and  doublets,  input  item  4 

dr/dx,  slope  of  body  radius  distribution  of 
circular  store  at  Jth  body  definition  station 


COMMON  /STRBET/  BTAL , BTSL 

BTAL  local  value  of  6  used  in  calculating  wing 

image  store  line  source  induced  velocities 

BTSL  local  value  of  8  used  in  calculating  wing 

image  store  line  doublet  induced  velocities 

COMMON  /STRBTC/  BTALC , BTSLC 

BTALC  local  value  of  8  used  in  calculating  fuselage 

centerline  image  store  line  source  induced 
velocities 

BTSLC  local  value  of  8  used  in  calculating  fuselage 

centerline  image  store  line  doublet  induced 
velocities 
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COMMON  /STRBTF/  BTALF , BTSLF 


BTALF 


BTSLF 


local  value  of  8  used  in  calculating  fuselage 
image  store  line  source  induced  velocities 

local  value  of  8  used  in  calculating  fuselage 
image  store  line  doublet  induced  velocities 


COMMON  /SWEEPS/  VSWLER  ( 20 )  ,  VSWTER  ( 20)  ,  VSWLEL  ( 20)  ,  VSWTEL  (20)  , 
VSWLEU (20 ) , VSWTEU (20) ,VSWLED(20) ,VSWTED(20) ,LVSWP,LEFT, 
FAC , NCWB , ARPNL (250), WIDTH (250) 


VSWLER (J) 


VSWTER(J) 


VSWLEL (J) 


VSWTEL (J) 


VSWLEU (J) 


VSWTEU ( J) 


VSWLED(J) 


VSWTED ( J) 


LVSWP 


LEFT 


NCWB 


ARPNL (J) 
WIDTH (J) 


right  fin  optional  leading-edge  sweep; 
input  item  25 

right  fin  optional  trailing-edge  sweep; 
input  item  25 

left  fin  optional  leading-edge  sweep; 
input  item  26 

left  fin  optional  trailing-edge  sweep; 
input  item  26 

fin  3  optional  leading-edge  sweep;  input 
item  27 

fin  3  optional  trailing-e Jge  sweep;  input 
item  27 

fin  4  optional  leading-edge  sweep;  input 
item  28 

fin  4  optional  trailing-edge  sweep;  input 
item  28 

spanwise  breaks  in  wing  sweep  option;  input 
item  18 

logical  index  indicating  geometry  is  laid 
out  on  left  side  of  centerline 

fraction  of  local  panel  chord  through  control 
point  of  u-velocity  panel  at  which  velocity 
influence  is  computed 

number  of  panels  in  axial  direction  on  body 
interference  shell;  input  item  18 

surface  area  of  Jth  u-velocity  panel 

width  of  Jth  u-velocity  panel 


'•nm.  J 


.  *-*■»*•  •  *4  .jrw* 
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COMMON  /TEVRT/  GAMTE (20), YCG ( 2 0 ) , ZCG  ( 2 0 ) 


GAMTE(I)  net  vorticity  at  trailing  edge  of  store 

empennage  generated  from  spanload  distributions 
on  fins  for  Ith  vortex.  See  Appendix  B,  Refer¬ 
ence  5 

YCG (I) , ZCG (I)  ys  and  zs  location  in  crossflow  plane  of  Ith 

trailing  edge  vortex 

COMMON  /THREE/  ANGLR, ANGLL, ANGLU, ANGLD , DELR, DELL , DELU , DELD, SREF , 
REFL 


ANGLR 

a  +  6r 

ANGLL 

a  +  6t 

Li 

ANGLU 

6  +  &u 

ANGLD 

e  +  6d 

The  above 

four  variables  are  valid  only  for 

cruciform 

radians 

fin  or  monoplane  wing  configurations; 

DELR 

<5r,  fin  1 

deflection;  input  item  21 

DELL 

6^,  fin  2 

deflection;  input  item  21 

DELU 

V  fin  3 

deflection;  input  item  21 

DELD 

<SD,  fin  4 

deflection;  input  item  21 

SREF 

empennage 

reference  area 

REFL 

empennage 

reference  length 

COMMON 

/THRUST/  NTPOLY , TEND ( 5 ) , TC ( 5 , 6 ) , FTHRUS , NTHRUS 

NTPOLY 

number  of 

thrust  polynomials;  input  item  29 

TEND (I)  time  end  points  of  Ith  thrust  polynomial; 

input  item  30 

TC ( I , J )  Jth  thrust  polynomial  coefficient  of  Ith 

polynomial;  input  item  31 

FTHRUS  thrust  force,  pounds 

thrust  option  index;  input  item  4 


NTHRUS 


COMMON  /TOTFOR/  CSIDE , CNORM, CROLL , CPITCH , CYAN 


CSIDE 

CNORM 

CROLL 

CPITCH 

CYAW 


store  total  side-force  coefficient 

store  total  normal-force  coefficient 

store  total  rolling-moment  coefficient 

store  total  pitching-moment  coefficient 

store  total  yawing-moment  coefficient 

The  forces  and  moments  in  this  common  represent 
the  total  values  acting  on  the  store  not 
including  any  thrust  or  ejector  forces  and 
moments.  All  forces  and  moments  act  in  the 
sense  displayed  in  Figure  17  of  Volume  II. 

All  moments  are  about  the  store  moment  center. 


COMMON  /TRMSSD/  ARG , ROOT , ACOSH 

ARG  argument  of  line  source  and  doublet  expressions 

ROOT  square  root  used  in  line  source  and  doublet 

expressions 

ACOSH  inverse  cosh  quantity  used  in  line  source  and 

doublet  expressions 

COMMON  /VEL/  VXAV , WXAV, USTOR, NOUT , NV , NS , NF 

VXAV , WXAV  average  crossflow  velocity  components,  v  and  w, 

at  axial  station,  x,  along  elliptic  store  body 
centerline  due  to  presence  of  parent  aircraft 


USTOR 

Vjj/V^g,  axial  free 
of  store 

stream  velocity  component 

NOUT 

print  control;  set 

to  zero  to  eliminate  print 

NV 

number  of  vortices 

NS 

not  used 

NF 

not  used 
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COMMON  /VELARC/  X , Y , Z , U , V , W , EM , TLRNC , PYPNL , UP , VP , WP 


X,Y,Z 

u,  v,w 

EM 

TLRNC 

PYPNL 

UP  ,  VP  ,  WP 

COMMON  /VRTXV/ 

WRTX  (J)  , 

WVRTX (J) 

NVRTIN 

NVRTX 

VRTMAX 

COMMON  /WBTR/ 
THTI (J) 


x,y,z  coordinates  of  field  point  in  semi- 
infinite  triangle  coordinate  system 

u,v,w  influence  functions  due  to  ;r:e  semi¬ 
infinite  triangle 

leading-edge  slope  of  semi-infinite  triangle 

numerical  tolerance  based  on  wing  semispan 

logical  variable  indicating  a  pylon  semi¬ 
infinite  triagle;  TRUE=pylon  triangle, 
FALSE=no  pylon  triangle 

sum  of  velocities  at  a  field  point  due  to 
wing  thickness,  pylon  thickness,  wing 
u-velocity  panels,  pylon  u-velocity  panels, 
or  fuselage  interference  shell 


WRTX  (250)  ,  WVRTX  (250)  ,  NVRTIN  ,  NVRTX  ,  VRTMAX 

v  and  w  components  of  velocity  at  the  Jth 
empennage  control  point  generated  due  to 
the  presence  of  external  vortices 

vorticity  calculation  override  index;  input 
item  24 

number  of  vortices  influencing  empennage 
u-velocity  panels 

maximum  vortex  induced  velocity;  input 
item  23 


HTI (100) , XWLE 

meridian  angle  used  in  defining  Jth  u-velocity 
panel  edge  on  store  interference  shell;  degs. 


XWLE 


axial  distance  measured  from  store  nose  of 
leading  edge  of  root  chord  for  empennage 


COMMON  /WDY 1 /  VAV ( 50 ) , WAV ( 50 ) , XAV ( 5 0 ) , NR 

VAV(J)  average  lateral  velocity,  v,  at  Jth  ring  of 

store  body  source  panels 

WAV ( J )  average  vertical  velocity,  w,  at  Jth  ring  of 

store  body  source  panels 

XAV(J)  average  axial  control  point  location  of  Jth 

ring  of  store  body  source  panels 

NR  number  of  rings  for  which  average  velocities 

are  computed 


COMMON  /WGEOM/  XBWOC , ZBWO , CRW , ZDIHED 

XBWOC  X3  coordinate  of  wing  root  chord  leading  edge; 

input  item  13,  Program  I 

ZBWO  zB  coordinate  of  wing  root  chord  leading  edge; 

input  item  13,  Program  I 

CRW  wing  root  chord;  input  item  34,  Program  I 

ZDIHED  logical  variable  indicating  whether  or  not 

there  is  wing  dihedral;  ZDIHED=TRUE,  no 
dihedral;  -FALSE,  there  is  dihedral 


COMMON  /XSHOLD/  FXSHLD, RXSHLD, SXSHLD ( 7 ) 

VXSHLD  x  location  of  circular  fuselage  shoulder,  feet 

RXSHLD  xD  location  of  rack  shoulder,  feet 

K 

SXSHLD (J)  xs  location  of  Jth  circular  store  shoulder,  feet 
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D-3  Blank  Common 


The  requirement  for  handling  the  many  large  arrays  associated 
with  the  solutions  for  empennage  constant  u-velocity  and  body 
source  panel  strengths  has  necessitated  both  the  use  of  out  of 
core  data  handling  and  storage  and  the  setting  aside  of  a  scratch 
storage  area  in  core  to  be  used  for  more  than  one  purpose.  To 
handle  the  latter  data  requirement  blank  common  has  been  reserved 
for  all  calculations  involving  large  arrays.  The  program  flow  of 
calculations  is  thus  arranged  to  allow  variables  to  be  read  from 
or  wrirten  to  external  files  as  needed.  The  following  describes 
the  Program  II  sequence  of  references  to  external  files  and  which 
arrays  reside  in  blank  common  at  each  point  in  the  program  flow. 

The  information  residing  in  each  of  the  external  files  is  described 
later. 

In  Program  II  blank  common  is  used  for  three  purposes: 

(1)  temporary  storage  of  data  during  the  transfer  from  TAPE12  to 
internal  files;  (2)  dynamic  allocation  of  the  arrays  with  multiple 
noncircular  body  descriptions;  and  (3)  temporary  storage  of  the 
empennage  constant  u-velocity  influence  coefficient  matrices.  The 
descriptions  which  follow  focus  on  the  definition  of  quantities 
during  these  phases.  When  arrays  for  both  the  elliptic  store  and  a 
noncircular  fuselage  are  present,  common  definitions  will  be 
identified.  Only  the  dimensions  of  arrays  will  vary  between 
components.  Emphasis  will  be  given  to  the  second  two  items  since 
these  data  items  are  continuously  being  swapped  in  core  during  the 
trajectory  integration.  The  flow  chart  in  Figure  C-2  of  Appendix  C 
identifies  several  points  in  the  program  where  external  files  are 
referenced.  The  comments  which  follow  are  keyed  to  the  usage  of 
blank  common  at  these  points  wherever  possible.  The  descriptions 
of  the  use  of  blank  common  during  the  three  phases  follow. 

The  first  use  of  blank  common,  item  1  of  Figure  C-2,  is  to 
store  intermediate  arrays  when  transferring  noncircular  fuselage 
and  elliptical  store  data  from  TAPE12,  written  by  Program  I,  to 
TAPEll  and  TAPE10,  respectively.  These  file  transfers  are  made  in 
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routine  FRSTRT.  The  variables  transferred  are  those  detailed  in 
the  description  of  subroutine  FRSTRT  in  Appendix  C.  The  data  for 
the  noncircular  fuselage,  if  the  option  is  being  used,  is  first 
copied  into  blank  common  in  the  same  form  as  it  existed  in 
Program  I  and  then  copied  onto  TAPEll  for  later  use.  The  data 
for  up  to  two  elliptic  store  shapes  is  similarly  copied  onto 
TAPE10.  See  the  descriptions  for  FRSTRT  for  the  sequence  of 
data  transfers. 

The  two  remaining  uses  of  blank  common  are  alternately  inter¬ 
changed  during  each  integration  step.  The  first  of  these  uses  of 
blank  common  is  for  containment  of  the  arrays  and  variables 
associated  with  the  separating  elliptic  store  shape,  a  noncircular 
fuselage,  and  any  second  elliptic  store  shape.  The  variables 
which  describe  each  of  these  configurations  are  dynamically 
allocated  space  in  blank  common  during  execution  depending  on 
the  panel  layout  of  each  configuration.  All  information  required 
to  compute  the  solutions  required  by  each  of  the  configurations 
will  reside  in  core  simultaneously.  The  allocation  of  variable 
locations  in  blank  common  is  assembled  from  the  individual  data 
for  each  of  the  three  possible  noncircular  body  shapes  in  routine 
STRDAT  indicated  at  item  2  in  Figure  C-2.  The  data  for  each  of  the 
individual  configurations  is  copied  from  files  TAPE10  and  TAPEll  as 
needed . 

The  separating  elliptic  store  shape  data  are  handled  f  irst .  The 
data  for  the  appropriate  store  shape  are  copied  from  TAPE10  into 
labeled  common  DIMENS,  PARAM,  BOPTNS,  GEOMB,  HEAD,  and  BSHOCK  and 
any  data  not  associated  with  these  commons  stored  at  the  beginning 
of  blank  common.  All  the  noncircular  fuselage  and  second  elliptic 
store  shape  data,  if  any,  are  copied  directly  into  blank  common. 

Both  the  control  variables  and  geometric  and  strength  arrays  are 
copied  sequentially  into  blank  common  immediately  after  the  previous 
configuration  data.  To  identify  the  location  of  the  data,  the  first 
and  last  variable  locations  of  this  data  are  saved  in  common  MULSTR 
for  the  separating  store  shape,  the  fuselage  and  an  additional  elliptic 
store  shape.  When  multiple  elliptic  stores  of  the  same  shape  are  to 
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be  used,  all  stores  of  the  same  shape  share  the  same  geometric  and 
control  variables  with  only  the  panel  strengths  for  each  store 
saved  separately. 

Tables  D-l  and  D-2  identify  the  locations  in  blank  common  of 
each  of  the  variables  for  each  of  the  noncircular  shape  configura¬ 
tions.  Table  D-l  specifies  the  locations  of  each  of  the  variables 
in  blank  common  used  to  describe  the  separating  store.  For  each 
variable,  index,  or  array,  the  name  it  is  identified  by  in  program 
usage,  its  length,  the  first  location  relative  to  the  offset  value 
of  the  configuration  data,  and  address  by  which  it  can  be  referred 
are  identified.  The  variable  names  given  are  those  by  which  they 
are  referred  in  internal  program  logic  and  in  Program  I.  The  next 
five  arrays  are  set  aside  for  values  computed  during  the  store 
trajectory.  Where  variable  indices  are  used  for  the  lengths  of 
arrays,  the  number  of  locations  occupied  are  dependent  on  the  pro¬ 
gram  input.  The  address  of  any  variable  is  specified  by  an  offset 
value  and  a  value  relative  to  the  offset.  The  offset  value  is 
defined  for  the  separating  store  (IDEJ) ,  the  noncircular  fuselage 
(IDF) ,  and  a  second  elliptic  store  shape  (ID2) .  The  value  relative 
to  the  offset  specifies  the  number  of  common  locations  from  the 
offset  in  which  the  value  resides.  Where  variable  names  are 
specified  for  locations  from  the  offset,  the  values  are  a  function 
of  program  input.  For  the  separating  store,  these  variable  locations 
are  stored  in  common  DIMENS.  Refer  to  the  descriptions  of  variables 
in  DIMENS  in  Section  D-2  for  their  definitions.  The  last  column  in 
Table  D-l  presents  a  typical  variable  address  in  blank  common  by 
which  the  first  value  in  each  array  may  be  referenced.  The 
definitions  of  the  variables  for  the  separating  store  shape  by 
their  name  in  the  second  column  follow: 

XPT(I)  x-station  of  control  point  of  Ith  panel 

YPT(I)  y-station  of  control  point  of  Ith  panel 

ZPT(I)  z-station  of  control  point  of  Ith  el 

THET(I)  inclination  angle  at  Ith  panel  control  point 


DELTA ( I ) 
AREA ( I ) 
XC(L,M) 

YC (L,N,M) 

ZC(L,N,M) 

GB ( I , J) 
U(I) 

V(I) 

W(I) 

CP  (I) 


incidence  angle  of  Ith  panel 
surface  area  of  Ith  panel 

panel  corner  points  at  Lth  axial  station  of  Mth 
segment 

y  corner  point  at  Lth  axial  station  of  Nth 
meridional  angle  of  Mth  segment 

z  corner  point  at  Lth  axial  station  of  Nth 
meridional  angle  of  Mth  segment 

strength  of  Ith  panel  for  Jth  store  of  given  shape 

u-velocity  component  induced  at  Ith  source  panel 

v-velocity  component  induced  at  Ith  source  panel 

w-velocity  component  induced  at  Ith  source  panel 

pressure  coefficient  at  Ith  source  panel  control 

point 


Table  D-2  specifies  the  locations  of  each  of  the  variables  in 
blank  common  used  by  the  noncircular  fuselage.  For  each  of  the 
variables,  the  name,  length,  first  location  relative  to  the  offset 
value  for  the  fuselage,  IDF,  and  the  address  in  blank  common  for 
referencing  each  variable  are  specified.  The  meanings  of  each  of 
the  columns  are  the  same  as  for  the  separating  store  data  in  Table 
D-l.  In  the  last  column,  integer  and  logical  variables  are 
referenced  by  variable  names  of  equivalent  type.  An  array  of 
similar  type,  here  indicated  by  IA  for  integer  variables  and  LA 
for  logical  variables,  are  used  when  accessing  those  variable 
types.  Such  arrays  of  length  of  one  and  the  correct  type  speci¬ 
fication  are  equivalenced  to  the  first  value  of  blank  common  to 
avoid  mixed  mode  operations. 

In  addition  to  the  geometric  arrays  shown  in  Table  D-l  for 
the  separating  store,  all  the  additional  variables  necessary  to 
locate  them  and  additional  shape  and  shock  location  data  are 
also  contained  in  blank  common.  The  additional  information  pre¬ 
viously  contained  in  labeled  commons  DIMENS,  PARAM,  BOPTNS ,  GEOMB, 
HEAD,  and  BSHOCK  in  Program  I  are  now  in  blank  common.  The  values 
here  are  those  defined  for  the  noncircular  fuselage.  The  defini¬ 
tions  of  variables  1  through  52  in  Table  D-2  are  the  same  as  those 
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found  under  DIMENS  in  Section  D-2.  The  descriptions  for  fuselage 
variables  53  through  64  are  found  under  PARAM.  The  variables  65 
through  88  are  described  under  labeled  common  BOPTNS.  Variables 
89  through  95  are  described  under  labeled  common  GEOMB.  Variables 
96  and  97  are  described  under  labeled  common  HEAD.  Variables  98 
through  110  for  the  fuselage  are  similarly  described  under  the 
definitions  of  common  BSHOCK.  Lastly,  variables  111  through  120 
have  the  same  definitions  as  the  arrays  defined  for  the  separated 
store  shape  in  Table  D-l. 

Though  all  values  are  presented  relative  to  the  offset  value 
for  the  fuselage,  IDF,  variables  47,  48,  and  49  may  also  be  used 
as  offset  values  for  different  segments  of  the  variable  list. 
Variable  48,  IDO,  is  the  same  as  IDF  and  may  be  used  as  the 
offset  for  variables  1  through  52  for  the  fuselage.  Variable  4f, 
ISKO,  is  equal  to  IDF+571  and  is  used  to  serve  as  the  offset  for 
variables  98  through  110.  Similarly,  variable  47,  IA0,  is  equal 
to  IDF+811  and  is  used  to  serve  as  the  offset  for  the  arrays  in 
variables  111  through  120. 

The  variables  for  the  second  store  shape  are  copied  into  blank 
common  in  the  same  order  as  shown  for  the  fuselage  in  Table  D-2 
except  that  the  value  ID2  is  substituted  everywhere  for  IDF. 

After  generation  of  the  above  blank  common  layout  in  ST  P.D  AT  at 
the  point  indicated  as  item  2  in  Figure  C-2,  a  copy  of  all 
variables  in  blank  common  specified  in  Tables  D-l  and  D-2  is 
saved  on  external  file  TAPE7.  A  total  of  NTAP7  variables  are 
written  on  TAPE 7 .  Though  certain  variables  in  this  list  are 
permitted  to  change  value  during  the  trajectory  calculations, 
their  locations  remain  fixed  for  the  duration  of  the  program 
execution. 

In  addition  to  the  first  NTAP7  variables  several  temporary 
arrays  are  defined  during  program  execution  which  use  space  in 
blank  common.  They  are  used  to  contain  intermediate  data  which 
is  no  longer  needed  once  the  calculations  have  been  performed. 


In  each  case  the  arrays  are  used  for  calculations  only  in  the 
routine  in  which  they  are  defined  or  the  subroutines  which  they 
call  directly.  These  additional  temporary  arrays  are  defined  at 
three  points  in  Program  II. 

The  first  set  of  temporary  arrays  is  defined  in  routine 
BDCOEF  for  use  in  computing  the  influence  coefficient  arrays  for 
the  effect  of  source  panels  on  the  elliptic  store  body  at  empennage 
panel  control  points.  This  operation  is  performed  at  the  point 
indicated  as  item  3  in  Figure  C-2.  The  additional  arrays  are  set 
aside  immediately  after  the  first  NTAP7  variables  in  blank  common. 
During  these  calculations  blank  common  is  equivalently  dimensioned 
as 

COMMON  A (NTAP7) ,  XF (NFLD) , YF (NFLD) , ZF (NFLD) , SVN (NFLD) , 

LSKP (NFLD) , UB ( 3 , NFLD, MAXKK) 

where  the  above  arrays  are  defined  to  contain  the  following  infor¬ 
mation 


XF(J) , YF ( J ) , 
ZF  (J) 


SVN  ( J)  , 
LSKP (J) 


UB (I, J,K) 


coordinates  of  Jth  empennage  control  point  at 
which  each  source  panel  influence  coefficient 
is  computed.  For  empennage  fins,  points  are 
identical  to  u-velocity  panel  control  points. 
For  interference  shell,  points  are  extrapolated 
to  local  surface  of  ellipse. 

work  arrays  for  checking  vanishing  influence 
at  Jth  control  point 

coefficient  array  to  hold  u,v,w  velocity  com¬ 
ponents  for  influence  of  Kth  source  panel  in 
a  ring  at  Jth  empennage  control  point  above 


The  results  for  the  influence  coefficients  for  a  ring  of  panels  on 
each  of  the  NFLD  control  points  is  saved  on  external  file  TAPE10 
after  each  calculation.  When  multiple  empennages  exist,  the 
coefficients  for  the  second  empennage  are  saved  immediately  after 
the  first. 
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The  second  set  of  temporary  arrays  is  defined  in  routine 
SF0RC2  for  use  in  computing  intermediate  results  for  the  loads  on 
the  separating  store  body.  This  operation  is  performed  at  the  point 
indicated  as  item  5  in  Figure  C-2.  Space  for  eight  arrays  is  set 
aside  in  blank  common.  They  are  allocated  space  immediately  after 
the  first  NTAP7  variables  and  overwrite  the  first  set  of  temporary 
arrays.  During  these  calculations  blank  common  is  equivalently 
dimensioned  as 


COMMON  A (NTAP7) ,  UT (NBODY ) , VT (NBODY ) , WT (NBODY ) , YIM (NBODY ) , 
ZIM(NBODY) , SVN (NBODY) , LSKP (NBODY) , AN (KRAD, KRAD) 


where  the  above  arrays  are  defined  to  contain  the  following  infor¬ 
mation 


UT ( J ) , VT ( J ) , 
WT  (J) 


YIM ( J) , ZIM ( J) 

SVN (J) , 

LSKP (J) 

AN  (I,  J) 


three  components  of  velocity  in  store  source 
panel  coordinate  system  containing  the  influ¬ 
ence  of  the  parent  aircraft  and  free  stream 
velocities  at  Jth  body  panel  control  point. 
These  are  used  to  form  the  nonuniform  flow 
boundary  condition  on  the  store  excluding 
any  image  store  effects. 

y,z  coordinates  of  Jth  image  store  control 
point  in  original  source  panel  coordinate 
system 

work  arrays  for  checking  vanishing  influence 
at  Jth  control  point 

influence  coefficient  matrix  containing  influ¬ 
ence  of  panels  in  one  ring  on  a  second  ring. 
Used  in  panel  strength  and  velocity  calcula¬ 
tions. 


NBODY  is  the  number  of  source  panels  on  the  separated  store  and 
KRAD  is  the  number  of  panels  in  a  ring  around  the  body. 

The  third  set  of  temporary  arrays  is  defined  in  routine  DEM0N2 
for  use  in  computing  the  influence  of  the  body  source  panels  at 
empennage  control  points.  This  operation  is  performed  at  the 
point  indicated  as  item  7  in  Figure  C-2.  The  calculations 
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performed  here  complement  those  performed  in  BDCOEF  by  using  the 
arrays  defined  there  to  compute  velocities  at  the  control  point. 

Only  one  array  is  allocated  space  in  blank  common.  During  these 
calculations  blank  common  is  equivalently  dimensioned  as 

COMMON  A (NTAP7 ) ,  UB ( 3 , NFLD , MAXKR) 

where  the  above  array  contains  the  following  information 

UB ( I ,  J ,  K)  coefficient  array  to  hold  u,v,w  velocity 

components  for  influence  of  Kth  source  panel 
in  a  ring  at  Jth  empennage  control  point 

The  empennage  control  points  are  those  specified  in  the  definition 
of  the  coefficients  in  BDCOEF.  The  coefficients  for  one  ring  on 
all  control  points  are  read  from  TAPE10  as  needed. 

The  third  use  of  blank  common  is  for  temporary  storage  of  the 
empennage  influence  coefficient  matrices  during  generation  and 
solution  for  the  constant  u- velocity  strengths.  The  influence 
coefficient  matrix,  FVN,  is  generated  in  routine  CRFWBD  and  stored 
on  TAPE 3  at  the  point  indicated  as  item  4  in  Figure  C-2.  Similarly, 
it  is  retrieved  in  routine  DEMON 2  from  TAPE 3  at  the  point  indicated 
as  item  8  in  Figure  C-2.  The  array  is  read  immediately  prior  to 
its  use.  Until  that  point,  the  arrays  for  the  noncircular  bodies 
are  required  in  blank  common  for  the  calculation  of  the  body 
influences  at  empennage  control  points.  The  FVN  array  is  only 
required  in  core  long  enough  to  solve  the  system  of  equations  for 
the  empennage  panel  strengths. 

When  multiple  empennages  are  being  analyzed,  the  body  data 
must  be  brought  back  in  common  during  the  analysis  for  the  influ¬ 
ence  on  the  second  empennage.  The  second  FVN  array  is  then  copied 
into  blank  common  in  the  same  location  as  the  previous  one.  In 
addition,  the  arrays  saved  in  EGMSAV  on  TAPE 3  are  retrieved  by 
EGMRST  at  item  6  for  each  empennage  and  restored  to  their 
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appropriate  labeled  commons.  This  sequence  is  repeated  for  each 
integration  step  in  the  trajectory  calculation. 

After  the  points  indicated  as  items  4  and  8  in  Figure  C-2, 
blank  common  is  equivalently  dimensioned  as: 

COMMON  FVN (62500) 

It  is  noted  that  the  size  of  the  actual  array  sets  the  dimension 
requirements  for  blank  common.  The  current  dimension  limit  above 
allows  for  250  constant  u-velocity  panels  to  be  placed  on  each 
of  two  empennages. 
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TABLE  D-l 


Multiple  Configuration  Blank  Common  Variable 

Locations  -  Separating  Store 

(Separating  store  data  offset  index:  IDEJ) 


No. 

Name 

Length 

1st  location 
from  offset 

1st  address  in 
blank  common 

1 

XPT 

NBODY 

IXPT 

A  ( IDEJ+IXPT) 

2 

YPT 

NBODY 

IYPT 

A ( IDE J+IYPT) 

3 

ZPT 

NBODY 

I  ZPT 

A ( IDEJ+I ZPT) 

4 

THET 

NOBDY 

ITH 

A  ( IDEJ+ITH ) 

5 

DELTA 

NBODY 

I  DEL 

A  ( IDEJ+IDEL) 

6 

AREA 

NBODY 

IAR 

A  ( IDEJ+IAR) 

7 

XC 

KX 

IXC(l) 

A ( I DE J + 1 XC ( 1 ) ) 

8 

YC 

KXKR 

IYC (1) 

A ( IDE J+ IYC  ( 1 )  ) 

9 

ZC 

KXKR 

IZC(l) 

A ( IDEJ+I ZC ( 1 ) ) 

10 

GB 

NBODY* ISHPEJ 

IGB(NEJGB) 

A ( IDEJ+IGB (NEJGB) ) 

11 

U 

NBODY 

IU 

A ( IDEJ+IU ) 

12 

V 

NBODY 

IV 

A  ( IDEJ+IV) 

13 

w 

NBODY 

IW 

A ( IDEJ+IW) 

14 

CP 

NBODY 

ICP 

A  ( IDEJ+ICP ) 

Note:  IDEJ=0  in  Program  II 
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TABLE  D-2 


Multiple  Configuration  Blank  Common  Variable 
Locations  -  Fuselage 

(Fuselage  data  offset  index:  IDF) 


No . 

Name 

Length 

1st  location 
from  offset 

1st  address  ii 
blank  common 

1 

NX 

1 

1 

IA (IDF+1) 

2 

NR 

1 

2 

I A ( IDF+2 ) 

3 

KX 

1 

3 

I A ( IDF+3) 

4 

KR 

1 

4 

IA (IDF+4 ) 

5 

NXNR 

5 

IA ( IDF+5 ) 

6 

KXKR 

6 

IA ( IDF+6 ) 

7 

NXKR 

7 

IA ( IDF+7 ) 

8 

MAXNX 

8 

IA ( IDF+8 ) 

9 

MAXKR 

9 

IA ( IDF+9 ) 

10 

NATOT 

10 

IA ( IDF+10 ) 

11 

NBODY 

1 

i 

11 

I A ( IDF+1 1 ) 

12 

KFUS 

1 

12 

IA (IDF+12) 

13 

KRADX 

C 

s 

13 

I A ( IDF+1 3 ) 

14 

KFORX 

5 

18 

IA ( IDF+18 ) 

15 

IXC 

5 

23 

IA ( IDF+2  3 ) 

16 

IYC 

5 

28 

IA ( IDF+2  8 ) 

17 

IZC 

5 

33 

IA ( IDF+3  3 ) 

18 

IXZSYM 

L 

38 

IA ( IDF+38 ) 

19 

NADIM 

39 

IA (IDF+39) 

20 

NXDIM 

40 

IA ( IDF+40 ) 

21 

NG 

41 

IA ( IDF+41 ) 

22 

IXPT 

42 

I A ( IDF+4  2 ) 

23 

IYPT 

43 

IA (IDF+4  3 ) 

24 

I ZPT 

44 

IA(IDF+44) 

25 

ITH 

45 

IA (IDF+45) 

26 

I  DEL 

46 

IA (IDF+46 ) 

27 

NTAP7 

47 

IA(IDF+47) 

28 

IAR 

48 

IA ( IDF+48 ) 

29 

IAN 

i 

49 

IA ( IDF+4  9 ) 

30 

IUB 

1 

50 

IA ( IDF+50 ) 

31 

IGB 

7 

51 

IA ( IDF+51 ) 

32 

IVB 

1 

58 

IA (IDF+5  8 ) 

33 

IU 

59 

IA ( IDF+59 ) 

34 

IV 

60 

IA ( IDF+60 ) 

35 

IW 

61 

IA ( IDF+6 1 ) 

36 

IVA 

62 

I A ( IDF+6  2 ) 

37 

IWA 

63 

IA (IDF+63) 

38 

ICP 

64 

IA ( IDF+64 ) 

39 

IPHI 

65 

IA ( IDF+6  5 ) 

40 

IYB 

I 

6  6 

IA(IDF+6G) 

41 

NAG 

1 

67 

IA ( IDF+6  7 ) 

42 

NAP 

1 

68 

IA (IDF+68) 

111 


TABLE  D-2  (cont.) 


No. 

Name 

Length 

1st  location 
from  offset 

1st  address  in 
blank  common 

43 

NAV 

L 

69 

IA ( IDF+69 ) 

44 

NAS 

70 

IA (IDF+70) 

45 

NASHK 

71 

IA(IDF+71) 

46 

NAFLD 

72 

IA (IDF+72) 

47 

IA0 

73 

IA ( IDF+73 ) 

48 

IDO 

' 

74 

IA (IDF+74 ) 

49 

ISKO 

L 

75 

IA ( IDF+75) 

50 

IZ2 

4 

76 

I A (IDF+76) 

51 

NRING 

1 

80 

I A (IDF+80) 

52 

I  ROW 

50 

81 

IA (IDF+81) 

53 

XMACH 

L 

131 

A (IDF+131) 

54 

ALPHA 

132 

A ( IDF+1 32 ) 

55 

BETA 

133 

A (IDF+133) 

56 

ALP H AC 

134 

A ( IDF+1 34 ) 

57 

PHIR 

135 

A (IDF+1 35 ) 

58 

EM 

136 

A (IDF+1 36 ) 

59 

SINAC 

137 

A ( IDF+137 ) 

60 

COSAC 

138 

A ( IDF+138 ) 

61 

SPHI 

139 

A (IDF+1 3 9 ) 

62 

CPHI 

140 

A (IDF+140) 

63 

SINA 

1 

141 

A ( IDF+14 1 ) 

64 

SINB 

1 

142 

A ( IDF+1 4  2 ) 

65 

JO 

1 

143 

IA (IDF+14 3) 

66 

J2 

144 

IA ( IDF+144 ) 

67 

J  6 

' 

r 

145 

IA (IDF+145 ) 

68 

NFUS 

1 

146 

I A ( IDF+14  6 ) 

69 

NRADX 

5 

147 

I A ( TDF+14  7 ) 

70 

NFORX 

5 

152 

I A (IDF+152) 

71 

J2TEST 

1 

157 

IA (IDF+15  7 ) 

72 

IPRES 

1 

158 

IA (IDF+158) 

73 

ISOLV 

1 

159 

IA (IDF+159) 

74 

INLET 

1 

160 

LA ( IDF+16  0 ) 

75 

IPLOT 

4 

161 

IA (IDF+161 ) 

76 

IPRT 

5 

165 

IA(IDF+165) 

77 

IUVW 

1 

170 

IA (IDF+170) 

78 

XSTART 

171 

A ( IDF+171 ) 

79 

XWLE 

172 

A (IDF+172) 

80 

REFA 

173 

A ( I DF +173) 

81 

REFD 

174 

A ( IDF+1 7 4 ) 

82 

REFL 

175 

A ( I DF +175) 

83 

REFX 

176 

A ( IDF+176) 

84 

REFZ 

177 

A ( IDF+177 ) 

85 

CCTEST 

f 

178 

A ( IDF+1 78 ) 

86 

ITMAX 

1 

179 

IA (IDF+179) 

87 

BODL 

1 

180 

A ( IDF+1 80 ) 

88 

IZ1 

12 

181 

IA ( IDF+181 ) 

TABLE  D-2  (cone.) 


1st  location  1st  address  in 


No. 

Name 

Length 

from  offset 

blank  common 

89 

XFUS 

51 

193 

A ( IDF+ 1 9  3 ) 

90 

ZFUS 

51 

244 

A  ( IDF+2  44 ) 

91 

FUSARD 

51 

295 

A  ( IDF+2 9 5 ) 

92 

FUSBY 

51 

346 

A ( IDF+  34  6 ) 

93 

FUSAZ 

51 

397 

A ( IDF+  397 ) 

94 

XJ 

51 

448 

A  ( IDF+448 ) 

95 

PHIK 

33 

499 

A (IDF+499 ) 

96 

TITLEl 

20 

532 

A ( IDF+  5  3  2) 

97 

TITLE 2 

20 

552 

A (IDF+552) 

98 

NSHK 

10 

572 

I A ( IDF+5  7  2  ) 

99 

PHIS 

10 

582 

A  (IDF+58  2 ) 

100 

THETN 

10 

592 

A (IDF+5 92) 

101 

MAXSHK 

1 

602 

IA  (IDF+602) 

102 

NSHOCK 

1 

603 

I A ( IDF+6  0  3 ) 

103 

DBETA 

1 

604 

A (IDF+604 ) 

104 

EALPHA 

1 

605 

A (IDF+605) 

105 

CNU0 

1 

606 

A ( IDF+6  06 ) 

106 

CNU2 

1 

607 

A ( IDF+60  7 ) 

107 

XSHLDR 

1 

608 

A ( IDF+6  0  8 ) 

108 

SHK 

3 

609 

A ( I DF +609) 

109 

XSHK 

100 

612 

A ( IDF+6 12 ) 

110 

RSHK 

100 

712 

A (IDF+712 ) 

111 

XPT 

NBODY 

IXPT+811 

A  (IDF+811  +  IXPT) 

112 

YPT 

NBODY 

IYPT+811 

A (IDF+811+IYPT) 

113 

ZPT 

NBODY 

IZPT+811 

A (IDF+811+IZPT) 

114 

THET 

NBODY 

ITH+811 

A (IDF+811+IPT) 

115 

DELTA 

NBODY 

IDEL+811 

A ( IDF+811+IDEL) 

116 

AREA 

NBODY 

IAR4-811 

A (IDF+811+IAR) 

117 

XC 

KX 

IXC (1)+811 

A  ( IDF+8 1 1+IXC ( 1 )  ) 

118 

YC 

KXKR 

IYC (1)+811 

A ( IDF+81 1+1 YC ( 1 ) ) 

119 

ZC 

KXKR 

IZC  (1)+811 

A ( IDF+8 1 1+1 ZC ( 1 ) ) 

120 

GB 

NBODY 

IGB (1)+811 

A ( I DF +811+1 GB ( 1 ) ) 

Notes:  (1)  IDO  =  IDF,  both  may  be  used  interchangeably 

(2)  ISKO  =  IDF+571,  it  may  be  used  as  offset  for 

items  98  through  110 

(3)  IA0  =  IDF+811,  it  may  be  used  as  offset  for 

items  111  through  120 

(4)  To  obtain  locations  of  second  elliptic  store 
shape  substitute  ID2  for  IDF  in  all  addresses 
above 


315 


m 

!■■■■■■ 

issssas 


■■■■■■■ 
■  o  ■■■■>:• 


SHI 


■ 


■■■Mi 
■■■  ■ 

tiis 


■■•  ■■■■ 
■HU  -  ' 

■I.'  • 


i 


IpipKiSsssssss  I 

[H8$S8?SS?.SSS8SSS  8888888888 

■■■*:<■■■■■■■■■■■■  ■■■■■■■■■■ 
■■■■■■*■■*■■■■■*■  ■■■■■■■■■■ 
*■■■■■■■***■*»■■■  ■•:•■■■■*!■■ 
■■«■■■■■■■■■■■***  ■■■>—— I 

sesBBB 

8888 


■nnniiiiNiiiiiuSnilllM 


ssmmfflmm 


■■■■■■■■■■■■■*■ 

!■■■■■■■■■■■■■ 

■*■■■■*■■■■■*■■ 


!.! 


SKWiTO 
Hp.5H3 

■389 

Eis  ssisssB! 
sssssrHMiji 


■■■■■  ■■■■iiiiaii5T-ioaBBBB  ■■■■■■•ml 


■■■■■  ■■■■■■■■■■  ■■■■■■■■ii®  ■■■■■■■■SHI 

srs  ::s:s::::s::«5:ssss::::ss::r 

ASS^SS8S8S88S8SSSSS88S8S8SSS8SSS88| 

; B ■■■■•»■■■■ ■■■■■■■ ■■■■■■■■■■■isl 


■■■■ 

ssss 

:::s| 

:::: 


■■■■■ 


■■■■ 

Hi!  aa 


Ri8S88Si!ffl 
i£S  ngss 
■RBgSSl 

iSissy«»!ssH 

888888888 

■■■■■■■■■■ 


-o  D- 1 . -  Common  statements  and  routines  in  Program  II  in 
which  they  appear. 


316 


mini  | 

ill 
mi 


311 


ess:::: 


iSSiiiiiH! 

iKSSSSSSSSSISSSSS 


i  ■■■■■••miaMi 
■■■■■■■■■■a  ■■■■>:<■■■ 
■■■■■■■■■a 
■■■■■■■■■■■■■■*■■ 


aBaajaBiHBiiiiieciieniBnl 

BJ!asaaBi.M.».ra!aga 


11 

■i 


■■■■■■ 

■HPIBiiNillll 

8 ■■■■*■■■■■  I 
pilllHKIIHgl 
■■■■■■■■■>:■■■■■! 

j 


KSSSKiSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

:::::::::::::::::::::::::::::::::::::: 

■■■■■■■■a  ■■■■■■■■■■  ■■■■■■■■■■  ■■■■■**■■■  I 

■■■■■■*■■■■■■■■■■■ 

■■■■■■■■■■■■■■■■■■■a 
■  ■■■■■■■■■■■■■■■■■■ 
a  ■■■■■■■■■■■■■■■■■■ 

'■■■■■■■■■■■■■■■■■■■a 
-:<■■■■■■■■■■  ■■■■■■■■■ 


■■■■■■**■  ■■■■■■■■■■  ■■■■■■■■■■■■■■■■■■■■  I 

■■■■■HO  I  I  !■■■  ■■■  ■■■  !■■■■■■■■■  !■■■■■■■■■! 

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I 

— ==== - Tir - TTTT - g-| 

■■•■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I 
•■■■■■■■■■■■■■■■■a ■■■■■*■■■■! 
■■■■■■  ■■■■■■■■■■■■■■■•:<■■■■  I 


!*■■■■■■■■■■■■■■■■■■■■■  ■■■■■■■■  ■■■■■>:■■■■  I 
^ — ^■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■«.:.mmI 
;■■■■■■■■■■  ■■■■>:•■■■>:<■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■•:<■■■■  I 

■■■■■■■■■■■■■■■■■■■■a ■■■■■■■■*■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ I 
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■laaaaaaaaaaaaaaaaaaavaaaaaaaaaaal 
••>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■■■■■■■■■■! 


■  ■■■■■■■■■■■■■■■■■■■■  ■■■■■■■■■■  aaaaaaaaaa  ■■■■■■■>:<>:<■  ■■■■■■■■■■  I 

•■■■■■■■■■■■■■■■■■■■■■■■■■■■'X.aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaal 

■  ■■■■■■■■■•■■■■■■■■■■■■■■■■■■■■■■■■■■■-:-■■■■■■■■■■■■  ■■■■■■■■§■! 
§■■■■*■■■■■■■■■■■■■■■  ■■■■■■■■■■■■■■■■■■■■  ■■■■■■■■■■oaaaaaaaaal 

■■■■aaioaaaiaaaaaaavoaaaaaa  I 

^■■■oaaaaavaaavaaaaa'. ■■■■■■■■■■■■■■■■■oaaaaaaaaaaaal 
■■■■■■■■■■■■■■■■■■■■a ■■■■■■■■■■■■■■■■■■■■■■■■■■■*■■■■■■■■■■■■! 

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I  .  »■■■■■■■■■■■■■■■■■■■■■■■■■■! 

IgliaaBaaaaaaaaaaaaaa ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■! 
■■■■mUIiaaiiiiaaiiaaaaiaiiiaiaaaiaaiiaaaaaiiaaaaiiiaaiaial 


[•tag  i 


REFERENCES 


1.  Mullen,  J.,  Jr.,  Goodwin,  F.  K.,  Dillenius,  M.  F.  E. : 
Prediction  of  Supersonic  Store  Separation  Characteristics 
Including  Fuselage  and  Stores  of  Noncircular  Cross  Section. 
Vol.  II  -  User's  Manual  for  the  Program.  Technical  Report 
AFWAL-TR-80-3032,  Vol.  II,  November  1980. 

2.  Goodwin,  F.  K.,  Dillenius,  M.  F.  E.  and  Mullen,  J.,  Jr.: 
Prediction  of  Supersonic  Store  Separation  Characteristics 
Including  Fuselage  and  Stores  of  Noncircular  Cross  Section. 
Vol.  I  -  Theoretical  Methods  and  Comparisons  with  Experi¬ 
ment.  Technical  Report  AFWAL-TR-80-3032,  Vol.  I,  November 
1980. 

3.  Hildebrand,  F.  B.:  Introduction  to  Numerical  Analysis. 
McGraw-Hill  Book  Co.,  New  York,  NY,  1956,  Chapter  6. 

4.  IBM  System/360  Scientific  Subroutine  Package,  Version  III, 
Programmers  Manual.  IBM  Corp. ,  GH20-0205-4,  August  1970, 
pp.  372-381. 

5.  Dillenius,  M.  F.  E.  and  Nielsen,  J.  N. :  Computer  Programs 
for  Calculating  Pressure  Distributions  Including  Vortex 
Effects  on  Supersonic  Monoplane  or  Cruciform  Wing-Body-Tail 
Combinations  with  Round  or  Elliptical  Bodies.  NASA 
CR-3122 ,  April  1979. 

6.  Goodwin,  F.  K. ,  Dillenius,  M.  F.  E. ,  and  Nielsen,  J.  N.: 
Prediction  of  Six-Degree-of-Freedom  Store  Separation 
Trajectories  at  Speeds  up  to  the  Critical  Speed.  Vol.  I  - 
Theoretical  Methods  and  Comparison  with  Experiment. 
Technical  Report  AFFDL-TR-7 2-8 3 ,  Vol.  I,  October  1974. 

7.  Scarborough,  J.  B.:  Numerical  Mathematical  Analysis. 

Johns  Hopkins  Press,  Baltimore ,  1966 ,  pT  137 . 

8.  Woodward,  F.  A.:  An  Improved  Method  for  the  Aerodynamic 
Analysis  of  Wing-Body-Tail  Configurations  in  Subsonic  and 
Supersonic  Flow,  Part  II  -  Computer  Program  Description. 
NASA  CR-2228 ,  Part  II,  May  1973. 

9.  Dillenius,  M.  F.  E.,  Goodwin,  F.  K.,  and  Nielsen,  J.  N. : 
Prediction  of  Supersonic  Store  Separation  Characteristics. 
Vol.  1  -  Theoretical  Methods  and  Comparisons  with  Experi¬ 
ment.  Technical  Report  AFFDL-TR-76-41 ,  Vol.  I,  May  1976. 


318 

*U.S. Government  Printing  Office-.  1981  —  757-002/462 


